u 



o 



label ooooooooolinf 00177231? compile espol/disk algol library 

burroughs b-5700 algol compiler mark xvi, 0,122 



FRIDAY, 08/19/77, 1!05 PM. 



ALGOL /ESPOL 



C 

c 



o 

> 

p 

o 

to 
to 
o 
o 

o 
o 
o 
o 
o 

u 
o 
o 
o 

o 



fspol /disk 



source file: symbol /espol 



$SET OMIT LISTa = LIST 
BEGIN COMMFNT OUTERMOST BLOCK; 



*113- 



INTEGFR ERR0RC0UN 
INTEGER SAVETIME; 



INTEG 
INTEG 

BOOL 

C 

P 

REAL 

C 

C 

REAL 

INTEG 
B 



E 
COMME 



BEGIN 
BEGIN 
INTEG 



ER CARD 

ER CARD 

EAn BUI 
OMMENT 

LACE OF 
RR] »RR2 
OMMENT 
TO 
OMMFNT 
STREAM 

BEG 
ER STRE 
EG IN SI 
SKI 
DI«- 
GFTF 
STAR 
IF 
BEG 
IF 
BEG 
IF 

PEG 

IF 

Rr8*50 

commen 

ER OPjN 



ND 
NT 



NUMBER 
COUNT* 
LDLINE 
RRl-RR 
LOCAL 

^ RR3»R 

SOMfr 

THE MA 
EXAMlN 

PROCED 
IN SI* 
AM PRO 
«-L0C G 
P 3 DB 
LOC q; 

« 

T SETT 
EXAMIN 
IN RR1 
EXAMIN 
IN RR3 
EXAMIN 

BEG I 
IN RR5 
EXAMIN 

BEG I 
xlO+50 

t main 



x; 



u 



t; comme 
syntx e 

COMMENT 
IE COMP 
J ?! SEQ 

% nUm 

* 

11 ARE U 
S TO SAV 
R4»RR5»R 
F THE RR 
IN BLOCK 
RETURNS 

URE exam 
ncr;di*l, 

CEDURE G 
ETF; SU 
J 9CIF S 

si-q;ds* 

ING UP F 
(RR11«-GE 
<-2JRR2«-l 
CRRll+5) 
<-2J RR4«- 
(RR11+10 
N RR5«-2; 
«-i;RR6*-5 

(RRU + lb 
N RR8*10 
+ i; RR9«- 

rlock; 
sed for 



nt number of error msgs, mcp will type 
rr at e0j if this is non-zero, must be ^r+25? 
save-factor for code file* given by mcp. 
ile & go =0. for syntax, = «1. must be at r+?6; 
# of card being processed, 
ber of cards processed, 

sed in some procedures in 
e stack space; 

R6»RR7>RR8>RR9,RRiO,RRllJ 

I ARE USED TO PASS FILE INFORMATION 

THF CHARACTER AT ABSOLUTE ADDRESS NCR; 
?NCNCR); VALUE NCR; 

oc examin;di«-di + 7; ds^chr end; 

ETFfQ);VAt,UE QJ 
SI»7lDI*L0C Q J DI «-DI +5« 

B THEN DS«-SET ELSE DS«-RESET; SKIP SB)J 
WDS)Sl«-Q;GETF«-Sl 

ILE PARAMETERS; 

TF(3)+"Y08") *12 THEN RRl+5 ELSE 

50 end; 

m2 then rr3*4 else 
150 end; 

) = 12 THEN 

RR6^lo;RR7*l50 end ELSE 
6;rr7*10 end; 
) = 12 THEN 
;RR9«-l50 END ELSE 

10 fNd; %90i- 



START 



INDF^ING INTO OPTIONS ARRAY, 



BOOLEAN SFTTING; % USED BY 
- INTEGER N F WINX, AnnVALUE* 
DEFINE OPARSIZE = 200 *; 
ARRAY OpTyONSrO;OPARSlZE'J; 
BOOLEAN OPTJONWORDJ 
DEFINE CHECKBlT = 
DFBUGBlT 



DOlLaRCARD FOR AN 
BASENUM, TOTALNO; 



1#. 
?#. 



OPTION'S SETTING, 



START 



00000999 


C 


ooon 0000 


SO 


00500000 


T 


000110000 


10 


OF SEGMENT 


********** 




00501000 


T 


0002*0000 


10 


00502000 


T 


0002J0000 


>0 


00503000 


T 


0002*0000 





00504000 


T 


0002*0000 


10 


00504100 


T 


0002*0000 





00504150 


T 


0002*0000 





00504700 


T 


000210000 





00505000 


T 


0002*0000 





00506000 


T 


0002*0000 





00507000 


T 


0002*0000 





00508000 


T 


0002*0000 





00509000 


T 


0002*0000 





00510000 


T 


0002*0000 





0051 1000 


T 


0002*0000 





00512000 


T 


0002*0000 





005P3000 


T 


0002*0002' 





00524000 


T 


0002*00021 





00525000 


T 


0002*0003 


2 


00526000 


T 


0002*0005! 


2 


00527000 


T 


0002*0006! 


1 


00528000 


T 


0002*0007 


3 


00529000 


T 


0002*0007! 


3 


00530000 


T 


0002*0013! 


2 


00531000 


T 


0002*0016' 


1 


00532000 


T 


0002*0020! 





00533000 


T 


0002*0022' 





00534000 


T 


0002*0024! 





00535000 


T 


0002*0027! 


2 


00536000 


T 


0002*0029! 


3 


00537000 


T 


0002*0032* 





00538000 


P 


0002*0034? 





01000000 


T 


0002*0037! 


3 


01000800 


T 


0002*00371 


3 


OF SEGMENT 


********** 




01000802 


T 


0003*0000* 





01000860 


T 


0003*0000* 





01000902 


T 


0003*0000* 





01000904 


T 


0003*0000* 





01000910 


T 


0003*0002* 


1 


01000920 


T 


0003*0002* 


1 


01000930 


T 


0003*0002' 


1 






c 
c 

c 
c 



y—- 



c 
c 
c 
c 
c 
c 
c 



c 



o 

o 
o 



u 

o 

o 



o 



> 

p 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



COMMENT 



DEFINE 



COMMENT 



OFCKRIT 
FORMATBIT 
INTRIT 
-LlSTARlT 
L I S T B I T 
LISTPBIT 
McPHlT 
MERGER IT 
NFSTBIT 

nfwrjt 
nfwinclbit 

OMITBIT 

PRINTDOLLaRRIT 

PRTBIT 

PUNCHRJT 

PURGERIT 

SFGSBIT 
SFQBIT 

sfQeRRbtt 

SfNGURlT 

STUFFBlT 

VOIDBIT 

VOIDTRlT 

XREFBIT 

BFNDBIT 

USEROPlNX 

IF A NfW CO MP It 

AND ADD OPTION 

FILL STATEMENT 

CHECKTOG 

OEBUGTOG 

DFCKTOg 

FORMATOG 

INTOG 

LISTATOG 

LlSTOG 

UISTPTOG 

MCPTOG 

mfrgetog 

nfstog 

nfwtog 

NEWJNCL 

OMITTING 

PRINTDOLLARTOG 

PRTOG 

PUNCHTOG 

PURGEToG 

SEGSTOG 

SFQTOG 

SEQTOG INDICATE 

5FQERRT0G 

SlMGLTOG 

STUFFTOG 

VOIDING 

VOIDTAPF 

XRFF 

RFMD 



= 3#i 

= 4#» 

= 5#, 

= 6#, 

= It, 

- 8#, 
= 9#, 
= 10#, 
= 11#» 
= 12#, 
= 13*, 
= 1«#. 
» 15#, 
= 16#, 
= 17#, 
s 18#, 
= 19*, 
= 20#, 
= 21*, 
= 22#, 
= 23#, 
= 24#, 
s 25#, 
= 26#, 
= 27#, 
s 28#; 
.ER-DEFINED OP 
IN DEFINES RE 
IN lNfTiALl7A 
= OPTiONWORo, 
= OPTiONWORo, 
= OPTiONWORo, 

= opttonword, 

= OPTiONWORo, 
= OPTiONWORo, 
= OPTiONWORo. 
= OPTjONWORo, 
= OPTfONWORo, 
= OPTiONWORo. 
* OPTiONWORo, 
= OPTiONWORn, 
= OPTiONWORo, 
= OPTiONWORo. 

- OFTjOnWORD. 
= OPTiONWORD, 
= OPTJONWORO. 
= OPTiONWORD, 
= OPTIONWORO. 
= OPTjONWORo, 
S RESFQUENCIN! 
= OPTIONWORD, 

- OPTiONWORo, 
= OPTiONWORD. 
a OPTjONWORo, 
= OP1 lONWORn, 
= OPTiONWORD. 
= OPTfONWORp, 



c 



*108- 
XI 08- 

£108- 
TION IS ADDED. CHANGE USEROPlNX 
LOW, IN OOLLARCARD. AND IN 
TJON OF COMPILER? 
•"CHECKBITSll #. 

DEBUGBITM] #» 

DECKBlTM] *, 

F0RMATBIT81] *, 

INTB1TU] #. 

LISTABITI l 3 #. 

LISTBITJH t, 

LISTPBIT: 13 #, 

MCPBITM] #» 

MERGEBITSlJ *p 

NESTBIT81] it, 

NEWBITU3 t, 

NEWiNCLBlTIJ] #, 

OMITBITMJ #, 

PRINTDOLLARBITM] t, 

PRTBITM] *» 

PUNCHBITM3 #> 

PURGEBITM3 t* 

SLGSBITM] #» 

SEQBITM3 #» 

IS TO BE DONE* 
SEQERRBITM] #• 
SINGLBITIH #» 
STUFFBITJl] #» 
VOjDBiTM] f, 
VOIDTBITM] #» 

XREFBJTJI] #. j-toa- 

OENDBlTi 13#» X108- 



01000940 T 


000350002*1 




01000950 T 


0003*0002: 1 




01000960 T 


0003*0002*1 


(" 


01000970 T 


0003*0002* 1 




01000980 T 


0003*0002* 1 




01000990 T 


0003*0002*1 


C 


01001000 T 


0003*0002* 1 




01001010 T 


0003*0002*1 




01001020 T 


0003*0002* 1 


c 


01001030 T 


0003*0002*1 - 




01001040 T 


0003*0002? 1 




01001050 T 


0003*0002*1 


c 


01001060 T 


0003*0002* 1 




01001070 T 


0003*0002*1 




01001080 T 


0003*0002* 1 




01001090 T 


0003*0002*1 




01001100 T 


0003*0002*1 




01001110 T 


0003*0002*1 


c 


01001120 T 


0003*0002*1 




01001130 T 


0003*0002* 1 




01001140 T 


0003*0002* 1 


c 


01001150 T 


0003*0002* 1 




01001160 T 


0003*0002* 1 




01001170 P 


0003*0002* 1 


c 


01001171 C 


0003*0002! 1 


- , 


01001172 C 


0003*0002* 1 




01001180 T 


0003*0002*1 


c 


01001190 T 


0003*000251 




01001200 T 


0003*0002* 1 




01001210 T 


0003*0002* 1 


c 


01001220 T 


0003*0002* 1 




01001230 T 


0003*0002*1 




01001240 T 


0003*0002*1 


c 


01001250 T 


0003*0002*1 




01001260 T 


0003*0002* 1 




01001270 T 


0003*0002*1 


c 


01001280 T 


0003*0002* 1 




01001290 T 


0003*0002*1 




01001300 T 


0003*0002*1 


o 


01001310 T 


0003*0002*1 




01001320 T 


0003*0002*1 




01001330 T 


0003*0002* 1 


o 


01001340 T 


0003*0002* 1 




01001350 T 


0003*0002* 1 




01001360 T 


0003*0002*1 


o 


01001370 T 


0003*0002*1 


- . . 


01001380 T 


0003*0002* 1 




01001390 T 


0003*0002* 1 


o 


01001400 T 


0003*0002*1 




01001410 T 


0003*0002*1 




01001420 T 


0003*0002* 1 


o 


01001430 T 


0003*0002* 1 




01001440 T 


0003 80002 * 1 




01001450 T 


0003*0002* 1 


o 


01001460 T 


0003*0002* 1 




01001461 C 


0003*0002*1 




01001462 C 


0003*0002* t 


o 



o 
o 
o 
o 

p 

(i 

s o 

o 
o 
o 
o 

' o 

o 
o 

o 
o 
o 
o 

o 



DUMMY 
BOOLEAN NOHEADINGJ 
BOOLEAN NfWBASe; 
.BOOLEAN LASTCRDPATC 



INTEGER XmoDE; 
BOOLEAN DOLLARToG; 
INTEGER ERRMAXJ 
BOOLEAN SErXEqToGj 
BOOLEAN LISTER} 
ALPHA MrDTUMj 
INTEGER MYrLASSj 
REAL BATMAN; 
ARRAY SPFCIALC0S31 

comment this ar 
chaRa 



H* 



= t\ 

TRUE 

NEW 
.NORM 
LAST 
IS p 

TE L L 

TRUE 
COMP 
GIVE 
LIST 
INplJ 
USFD 

usfd 
JJ 

RAY HOLDS 
CTORSS IT 



TF DATtMF HAS NOT BEEN CALLED, 

raspnum found on a new s-card, 
ally false* set to true when the 
card from symbolic library read 
atched from the card reader, 

S DoLLArCArD HOW To SET OPTIONS, 
IF SCANNING A DOLLAR CARD, 

ILATION STOPS IF EXCEEDED, 
SEo, NOt WHEN DS-ING OBJ, 

OG OR LISTATOG OR DEBUGTOG, 

T IS s T.C»P'CA'CB»CC, 
IN DOLLARCARD EVALUATION, 
IN DOLLARCARD EVALUATION, 

THF INTERNAL CODF FOR THE SPECIAL 
IS FILLED DURING INITIALIZATION; 



ARRAY 
£***** 

% 

<£***** 

% 

ARRAY 

XREFAY2[0!?9], 



INFO C0!127,0:255JJ 

********************************************************** 

XRFF STUFF 
********************************************************** 



XREFAYH0:9], 



array of one word reference rfcords, 
the layout of each word is 

• t 1 »5J TYPE OF REFERENCE 

= FOR FORWARD DECL 
- 1 FOR LABEL OCCURENC 
= 2 FOR NORMAL DECL 
= 4 FOR NORMAL REFEREN 
= 5 FOR ASSIGNMENT 

NOTFS THE LOWER ORDER 
OF THIS FIELD 
IF YOU WANT ST 
AROUND THIS Rp 
IN THE XREF 

,[61151 IDENTIFIER ID. NO, 

this is a unique numbf 
is assigned when the 
identifier is encountf 

FOR THE FIRST TiMe, 
tC21«2/3 SEQUENCE NUMBER 

rfcord buffer area for wrftjng out the 
name information records, one record 
is written for each identifier in the s 
table when i he identifier is purged fro 

SYMBOL TABLE, I,E,, WHEN LEAVING THE Bl 

In which t h e identifier is declared, 
the layout of each record is t 



******** 

XllO- 

******** 

xno- 

XI 10- 
2110- 

XI 10- 
XllO- 
XllO- 
XI 10- 

E X110- 
XHO- 

CE 85110- 

xuo- 

XI 10- 

BIT 
IS ON 
ARSX110- 
FERFNCE 
XllO- 
XllO- 
XI 10- 

R that 

sho- 
re xno- 
sno- 
xno- 

XI 10- 
XllO- 

xtio- 

8110- 

YMBOL 

M THE 

OCKXltO- 
X1 10- 
%1 1 0- 
81 10- 
8110- 






1001470 


T 


0003 


!0002 < 


1 





t001480 


T 


0003 


i0002 


1 





1001490 


T 


0003 


500021 


1 





1001500 


T 


0003 


10002' 


1 





1001510 


T 


0003 


10002 


1 





I00l5?0 


T 


0003 


(00021 


1 





1001530 


T 


0003 


(0002! 


1 





1001540 


T 


0003 


10002! 


1 





L001550 


T 


0003 


"0002! 


1 





1001560 


T 


0003 


S0002! 


1 





1001570 


T 


0003 


100021 


1 





1001580 


T 


0003 


10002) 


1 


0. 


1001590 


T 


0003 


|0002l 


1 





1001600 


T 


0003 


!0002i 


1 





1003000 


T 


0003 


10002) 


1 





1004000 


T 


0003 


!0005) 


2 


0. 


1005000 


T 


0003 


10005) 


2 


0. 


1006000 


T 


0003 


10005) 


2 


0] 


[007000 


T 


0003 


'0005! 


2 


0< 


L007005 


C 


0003 


0007! 


3 


o: 


[007010 


C 


0003 


0007! 


3 





1007015 


C 


0003 


•00071 


3 


0' 


1007020 


c 


0003 


'0007! 


3 





1007025 


c 


0003 


'0007! 


3 





[007030 


c 


0003 


0007! 


3 


0] 


[007035 


c 


0003 


OOlOl 




0] 


[007040 


c 


0003 


lOOlO! 




01 


1007045 


C 


0003 


OOlO! 




0] 


1007050 


C 


0003 


OOlO! 




01 


1007051 


c 


0003 


OOlO! 




01 


1007055 


C 


0003 


OOlO! 




0! 


007060 


c 


0003 


OOlO! 




01 


1007065 


C 


0003 


OOlO! 




0< 


[007070 


c 


0003 


f OOlO J 




0! 


1007075 


c 


0003' 


OOlO? 




0] 


[007080 


c 


0003 


t OOlO » 




01 


1007085 


c 


0003 


OOlOl 




01 


[007090 


c 


0003 


OOlO! 




0] 


[007095 


c 


0003 


'OOlOl 




o- 


L007100 


c 


0003 


•OOlO! 




01 


[007105 


c 


0003 


0010! 




0] 


1007UO 


c 


0003 


00105 




01 


[007115 


c 


0003. 


OOlOl 




01 


t007120 


c 


0003 


OOlOl 




01 


1007125 


c 


0003 


00j0! 




0] 


1007130 


c 


0003 


OOlO! 




0] 


1007135 


c 


0003' 


OOiO: 




Oj 


1007140 


c 


00031 


OOlO! 




01 


007145 


c 


00031 


OOlO! 




01 


.007150 


c 


0003' 


00138 


2 


01 


.007155 


c 


0003! 


0013! 


2 


01 


007160 


c 


0003 


00i3! 


2. 


0] 


007165 


c 


00031 


0013! 


2 


01 


007170 


c 


0003' 


0013* 


2 


01 


.007175 


c 


0003! 


00135 


2 


01 


007180 


c 


0003! 


0013! 


2 


01 


007185 


c 


0003! 


0013! 


2 



c 



c 
c 
c 



c 
c 
c 
c 

c 



c 



o 
o 
c 
c 



u 

o 



o 

iO 

lo 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



X|NF0r0*31»0U27]S 



INTEGER 
XREFPT, 



xlunj 



DEFINE 

SEGNOF = [218 
IDNOF a C 33 : 

TYPERFF - Ci: 
REFIONOF bC6I 
SEQNOF - [21» 

XREFItC INDEX* 
PEGTN IF xr 

XMARKrRFFTYPF 
PEGlN IF XR 



123#* 
15]#, 

153#. 

?7]#» 



X 
% 

% 

% 
X 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
X 
% 
% 
% 
% 
% 
% 
% 
% 
X 
X 
% 
% 
% 
X 
% 
% 
% 
X 
% 
X 
% 
% 
X 
% 
% 
% 
X 
X 
% 
X 
% 



words 0-7 



WORD 8 

,[211123 



.[331153 
WORD 9 

this array conta 
in the info tabl 
of The elbat wor 
the info table y 
for the identifi 

XiNFOrlNDEX 

EACH ENTRY CONTA 

,C21! 



THE IDENTIFIER WITH 
FILL, ON THE RIGHT 



B 



segment number 
this identif 

IDENTIFIER ID. 

elbat word 

ins one entry f 
e, if you have 
d for an ident1 
ou can find the 
eR by RefeRRin 

.LlNKR. INDEX, U 
I NS ! 



IN 
IER 

NO, 



WHI 
WAS 



OR EACH 
THE IND 
FIER IN 

XINFO 
G TO: 



LANKX1 
SI 
XI 
XI 

CH 21 
DECLA 
XI 
%l 
%\ 
%\ 
%\ 
ENTRY 

EX SI 
%\ 

h'ORDSl 
XI 



123 
,[33515] 



SEGMENT NU 
THIS IDE 

IDENTIFIER 
IF THIS 
THEN XRE 
AT THE T 
WAS DECL 
FUTURE R 
BE OISCA 



MBER IN 
NTIFIER 



XI 

NKC DIV 23 Xt 

XI 

XI 

XI 

WHICH 

WAS D 

XI 

%\ 

IS ZE 

OT ON 

IDENT 
D ALL 
ES WlL 



ID. NO 
ID, NO, 
F WAS N 
IME THE 
ARED AN 
EFERENC 
RDED, 



f next availa8l 
is becomes grea 
ent array is qu 
set to zero, 

ntrols the assi 
ifiers. it is i 
identifier is e 



E SLOT 
TER 
MPED TO 



GNING 
NCREMEN 
NCOUNTE 



IN 



XREFDUMPCINDEX) 



SEQNO»REFT 
EF THEN CR 

% 

% 

XR 

X 

X 



) = 

ef then 



XI 
XI 
XI 
XI 
XI 
DISK 
XI 
XI 
F XI 
TED XI 
RED, XI 
XI 
XI 
X1 
XI 
XI 
XI 
XI 
XI 
XI 
XI 
XI 
XI 
TO 
XI 
XI 
DEFINE TO DUMP SYMBOL TABLE INFO FOR IDENTIF 



contains index 
xrefay?, when th 
Than 30 the curr 
and xRffpt is Re 

this variable co 
id. no, to ident 
each Time a new 



FIELDS IN XINFO 
IDENTIFIER RECOR 



ENTRIFS AND WORD 8 OF 
DS, 



FIELDS OF REFERENCE WORDS 



YPE) = X DEFINE 
OSSRFFlTCINDEX»S 

DEFINE TO CHANGE 
EFAY?[XREFPT~1 J, 



TO ADD INFO TO 
EQNO,REFTYPE)J 

LAST ENTRY IN 

typeRff s= Reft 



REF TAB 
END#> 

REF TAB 
YPE END 



LE 



LE 
t, 



10- 
10- 
10- 
10- 
10- 
RED 
10- 
10- 
10- 
10- 
10- 

10- 
10- 
10- 
10- 
10- 
10- 
10- 
10- 
10- 

ECL 
10- 
10- 
RO 



L 

10- 

10- 

10- 

10- 

10- 

10- 

10- 

10- 

10- 

1 0- 

10- 

10- 

10- 

10- 

10- 

10- 

10- 

10- 

10- 

10- 

10- 

10- 

A 

10- 

10- 

IER 



1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 

100? 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 
1007 



190 
195 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
?70 
275 
280 
285 
290 
295 
300 
305 
310 
315 
320 
325 
330 
3 35 
340 
345 
350 
355 
360 
365 
370 
375 
380 

385 
390 
395 
400 
405 
410 
415 
420 

425 
430 
435 
440 
445 
450 
455 
460 
465 
470 



0003 


00< 


t 3 5 


0003 


100 


13« 


0003 


100 


13S 


0003 


>00 


135 


0003 


100 


135 


0003 


00, 


135 


0003 


100 


135 


0003 


00< 


L3» 


0003 


00 


135 


0003 


too 


135 


0003 


00- 


135 


0003 


100] 


135 


0003 


00- 


15! 


0003 


001 


15! 


0003 
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thfn a is entered as follow-skassumf an elbat word t has been 

constructed for a) 
•" .l ink- scli. (Which is zero at first). 

S[L]«-NeXTINFO. 

nextinfo-nextinfo+number of words in this 
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Similarly, after c is entered 

StL] POINTS TO C»WH0SE ENTRY POINTS TO B WHOSE ENTRY 
POINTS TO A, 
THE SECOND WORD OF EACH ENTRY IN INFO iS MADE UP AS FOLLOWSJ 
FWDPT ami], THIS TELLS WHETHER A PROCEDURE WAS DECLARED 

FORWARD. IT IS RESET AT ThE TIME OF ITS ACTUAL 
FULL DECLARATION. 

THIS GIVES A DECREMENT WHICH GIVES THE RELATlVF 
INDEX To ThE PREVIOUS INFO ENTRY WHEN SUBTRACTED 
FROM THE CURRENT ENTRY INDEX. 
TELLS THE NUMBER OF CHARACTERS IN THE ENTRY, C<64) 
CONTAINS THE FIRST FIVE ALPHA CHARACTERS OF THE ENTRY 
AND SUCCEEDING WORDS CONTAIN ALL OVERFLOW IF NEEDED, 
THESE WORDS CONTAIN 8 CHARACTERS EACH. LEFT JUSTIFIED, 



PURPT *C4l8] 
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lNFOtI+3-3] POINTS TO THE ENTRY FOR SYMBOL, 
ALL ENTRIES Of IDNETJFIERS h AVE T H E INFORMATION DESCRIBED ABOVE 
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NTRNSI 
TRPROr 
OOSTRP 
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DE 



VEL A 
E ST A 
ATIVE 
T|VE 

link 

S IN 
THE 
ARE S 

ti tie: 

TjFIE 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 

co 
co 
co 

CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 
CO 

co 
co 
co 
co 

CO 
CO 
CO 
CO 
ARY B 
CO 
CO 
CO 

co 
co 
co 

CO 

C|,ARA 
CO 

EMENT 
CO 
CO 



T WHI 

CK OR 
LINK 
TO TH 
TO TH 
FLBAT 
STACK 
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CH A QUANTITY WAS DECLARED. 

PRT ADDRESS, 

TO ANY ADDITIONAL INFORMATION 
E LOCATION IN INFO, 
E LOCATION IN INFO IF THE 
. OTHERWISE IT LINKS TO THF 
, ZERO IS AN END FLAG, 
ISIONS OF LINK. J 

OCTAL CLASS IS IN COMMENT? 

ooo; 
ooi; 

002? 

003; 
oo/i; 
005; 
006; 

007* 

010; 
on; 
012; 

013; 
OH; 
015; 
016; 
oi 7; 

017? 

021; 
022; 
023; 

023; 
025; 
026; 
027; 
027; 
03i; 

032; 

033; 
033; 

036? 
037? 

oao; 
ers; 
041 ; 

042; 
043; 
044; 

045; 
046; 

047; 
050; 

NNERS 
052? 
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67000 T 

68000 

69000 
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71000 

72000 

73000 

74000 

75000 

76000. T 

77000 T 

7B000 

79000 

80000 

81000 

82000 

83000 

84000 

85000 

86000 

87000 

88000 

89000 

90000 

91000 

92000 

93000 

94000 

9500Q 

96000 

97000 

98000 

99000 
200000 
201000 
202000 
203000 
204000 
205000 
205200 
205400 
206000 
207000 
208000 
209000 
210000 
211000 
212000 
212100 
212200 
21 3000 
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215000 
222000 
223000 
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COMMENT 
COMMENT 
COMMfNT 
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% STRING =99#> 

FIELDID s 125# 
COMMFNT SLJRCLaSSFS FOR 

OWNV =0l# 

SAVEV s02# 

BOOV =03# 

REA|,V =04* 

ALFAV =0s# 

INTV =0<5# 

LARELV =07# 

OUMPV = 08# 

SURV -09# 

OUTV a l0# 

INV = ll# 

MONitORV 3 12# 

SWITCHV = 13# 

PR0CV = U# 

ARRAY" st5# 

NAMEV ■ 316# 

FIUEV = 17# 

STREAMV =1H# 

DEFINEV = 19# 

AUXMEMV = 20# 

FIELDV ~2\t 

DEFINE. nDFS - 8#> 

ADFS = 28*» 

PDFS = 29#, 

LDFS = 30#, 

CHAR n 31#, 

FACTOR ~ AST 

OPERATORS s HEX 

FILEID = 0*. 

MAXTNTRlNSic c 150 

TNTRlNSlCADR = CMA 
«FAU TfMpi ; 
BOOLEAN ASTOgJ 
BOOLEAN SAFJ 

integer scram? 
comment scram 

OR R 

alpha array accum 
comment accum 
scan 
in i 
has 

THE 
ARRAY STACKHEAOtOt 
COMMENT STACKH 
ITEM 
INTEGER COUNT: 
comment COUNT 
scan 

ALPHA QJ 

comment cont 
word 
array flbat[0:75] 
comment elbat 



COMMENT 143) 

, COMMENT 175; 

DECLARATORS (KfPt 

COMMENT Oj; 

COMMENT 02; 

COMMENT 03? 

COMMENT 04; 

COMMENT 05? 

COMMENT 05? 

COMMENT 07? 

COMMENT 10; 

COMMENT H; 

COMMENT 12; 

COMMENT 131 

COMMENT 14? 

COMMENT 15; 

COMMENT 16? 

COMMENT 17? 

COMMENT 20; 

COMMENT 21? 

COMMENT 22? 

COMMENT 23; 

COMMENT 24j 

COMMENT 25; 



IN ADDRFSS)? 
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R|SK## 

0P#, 

#, % USED TN BUILDING INTABLE 9 09414120 
XtNTRINSlC DIV 30)#; 2! RESERVES SEG FOR INTABLE 



CONTAINS THE SCRAmBlE INDEX FOR THE LAST IDEMTIFIER 

esfrved word scanned; 

t J 1 3 1 

HOLDS THE ALPHA AND CHARACTER COUNT OF THE LAST 
NED ITEM IN A FORM COMPATIBLE WITH ITS APPEARANCE 
NFO. THAT IS aCCUmCU - OONAAAAA. ACCUME I 3 # I> 1, 
ANY ADDITIONAL CHARACTERS. ACCUMC03 IS USED FOR 
ELBAT WORD BY THE ENTER ROUTINES; 
1?5]; 

EADCNJ CONTAINS AN INDEX INTO INFO GIVING THE TOP 
IN THE N-T H STACK; 

contains thf number of charactors of the last itfm 
nfd; 

alns a c c u m [ 1 3 for the last identifier or reserved 

SCANNED? 
? INTEGER I, NXTELBTJ 
IS AN ARRAY HOLDING ELBAT WORDS FOR RECENTLY SCANNED 



01278600 
01278700 
01279000 
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quantities. thf t 
cflbat is table sp 
guaranties that el 

for the last t o qu 

POINTING TO THE NE 
INDEX USED BY THE 
TrOM ELBAT, I IS 
INTEGER FLCLASSl 

COMMENT ELcLftSS USUaLLY CONt 

integfr FCR' NcR» lcr*tLcr»clcr 
intfgfr MaXtLcr; 

commfnt ft.R contains arsolut 

ThE CARD iMAr.E CUR 

Of Thf next charac 

CHARACT0R (C0L lJ MN 
THE t.AST CHARACTER 

is the maximum of 
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01583000 
01583100 
01584000 
01585000 
01586000 
01587000 
01588000 
01589000 
01590000 
01^91000 
01592000 
01593000 
01594000 
01595000 
01596000 



T 
T 

T 
T 
T 
T 
T 
C 
C 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 

T 
T 
T 
T 
T 
T 
T 



0003$ 
0003* 

0003? 
0003« 
OOO3? 

0003$ 
0003? 
0003? 
0003? 
0003J 

0003; 

00031 
0003! 
00031 
0003J 
0003« 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003! 
0003? 
0003? 
0003? 
0003? 
0003? 
0003? 
0003! 
0003? 
0003! 
0003? 



0045J3 
0050 

0057 
0059 
0059 
0066 
0070 
0074 
0078 
0082 
0087 
0094 
0094 
0094 
0094 
0094 
0094 
0094 
0098 
0105 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 
0107 



C 

c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
o 
o 
o 
o 
o 
o 
o 
o 



o 
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u 

O 

to 

•Jo 

to 

U 

n 

to 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



rOOLfaN stopdffiNe; 

INTFGFR M A XSAVF5 

COMMpNT THIS 
- .. DECLARED. IT 

FOR THE PROGRAM 



REAL 



CONTAINS THF SI ZE Of THF M a X I M u M SAVF ARRAY 

is us F r> to help deTfRmjNe storage RfouiReMfnts 

PARAMETER BLOCK FOR THE OBJECT PROGRAM? 



K|.ASSF> 

AnDRSF* 

LFVELE' 

LINKF* 

INCRF» 

PrOjNFO, 



TYPEV, 

PROADo* 

MARK » 

PJ» 
J» 
LaSTINf0» 
N f XTINfO» 
FtRSTX# 

savfl; 

INTEGER NCIU 



COMMENT CLASS IN LOW ORDER 7 BITS; 

COMMENT ADDRESS IN LOW ORDER 11 BITS? 

COMMENT LVl IN LoW ORDER 5 BITS} 

COMMENT LINK IN LOW ORDER 13 BITS? 

COMMENT INrR CN LOW ORDER 8 BITS; 

COMMENT CONTAINS ELRAT WORn FOR PROCEDURE BEING 

declared; 

GLOBAL TfMPORARy FOR BLOCK; 
US F D TO CARRY CLASS OF IDENTIFIER 
BEING DECLARED? 
COMMENT CONTAINS ADDRESS oF PROCEDURE BEING 
DECLARED; 

CONTAINS INDEX l N T0 INFO WHERE FIRST WORD 
OF ADDITIONAL INFO FOR A PROCEDURE ENTRY; 
FORMAL PARAMETER COUNTER; 
ARRAY COUNTER? 

iNnEX TO LAST ENTRY IN INFO; 
iNnFX FOR NEXT FNTRYIN iNfO; 
RELATIVE ADD Of FIRST EXECUTABLE COOF 
TN BLOCK, INITIALIZED TO 4095 EACH TlM£J 
SAVE LOCATION FOR FfXUPS IN BLOCK? 
THIS CONTAINS THE COUNT OF CONSTANTS 
ENTERED IN INFq AT ANY GIVEN TIME; 



comment 

COMMENT 



COMMENT 

COMMENT 
COMMENT 
C.OMMfNt 

comment 
comment 

comment 

COMMENT 



PROCEDURE UmHookjForward; 

PROCEDURE MAKEUpACCUM; FORWARD; 
DEFINE pURPT 3S t*:8]#»SECRETa2#i 
COMMENT THFSF DEFINES GlVF THF NaMfS OF THF 

NUMrfRS RFFFR TO THF APPRoPRIATf SECTION 

FULL NaMf IS ALSO GIVEN; 



WORD MODE OPERATORS. THE 
OF THE PRODUCT SPECS,. THE 



DEFINE 

ADD = 

BBC ~ 

RBW s 

BFC = 

RFW = 

CDC = 

CHS = 

COC a 

COM a 

DEL = 

nuP = 

f«l ; 

LRC = 

lbu : 

GEO = 
l.PC = 

LFU a 
GTR = 



16*, 
??.** 

38#> 
550#> 
16fi#> 
134*, 

4o#, 

130#, 

10#, 

261#, 

58t#, 

278#, 

790#, 
21 *» 

?94#» 
R06#* 
37#, 



COMMENT fOiOl) 

COMMEN 1 " (0131) 

COMMENT (4131) 

COMMENT (0231) 

COMMENT (4231) 

COMMENT (1241) 

COMMENT (1031) 

COMMENT (0241) 

COMMENT € 101 1 5 

COMMENT (0045) 

COMMENT (2025) 

CQMMpNT (4425) 
C0MMFNT(2l3l ) \ 
C0MMENT(6131 ) 



'.4,2.1 

7 , 4 . 5 , 4 

7 . 4 . 5 • 2 

7,4.5,3 

7,4,5.1 

7.4, 10.4 

7,4,7,11 

7,4,10,3 

7,4,10.5 

7,4 

7.4 

7,4.4,3 

.^15.9 



.9,3 

,9,2 



IDV = 3B4#, 
|Nx = 24#, 
iSq = 532#, 



7,415.7 
COMMENT (0i?5) 7,/j,4,2 
CnMMEN|TC223l ) 7.4,5,8 
C0MMENT(6231) 7.4.5.6 
COMMENT (0225) 7,4,4.1 
fiOMMpNT (3001) 7,4,2.5 
COMMENT (0141) 7,4,10.2 
COMMENT (4121) 7,4,6,3 



ADD? 

BRANCH BACKWARD CONDITIONAL? 

BRANCH BACKWARD; 

BRANCH FORWARD CONDITIONAL; 

BRANCH FORWARD; 

CONSTRUCT DESCRIPTOR CALL; 

CHANGE SIGN; 

CONSTRUCT OPERAND CALL? 

COMMUNICATION OPERATOR; 

DEt-ETE? 

duplicate? 
eQual; 

go backward conditional? 
go backward (word); 

GREATER THAN OR EQUAL To? 

Go forward conditional? 
go forward CWORD); 
GREATER THaN? 
INTEGER DIVIDE? 
INnFX? 

INTEGER STORE DESTRUCTIVE? 



01597000 

01598000 

01599000 

01600000 

01601000 

01602000 

01603000 

01604000 

01605000 

01606000 

01607000 

01608000 

01609000 

01610000 

Oi 61 1000 

01612000 

01613000 

01614000 

01615000 

01616000 

01617000 

01618000 

01619000 

01620000 

01621000 

01622000 

01623000 

01624000 

01625000 

01626000 

01627000 

01628000 

01629000 

01630000 

01631000 

01632000 

01633000 

01634000 

01635000 

01636000 

01637000 

01638000 

01639000 

01640000 

01641000 

01642000 

01643000 

01644000 

01645000 

01646000 

01647000 

01648000 

01649000 

01650000 

01651000 

01652000 

01653000 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 
T 
T 
T 



000310 

0003*0 

0003*0 

000310 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 

0003*0 



07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2. 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2< 

2 

2 

2 

2 



3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 
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c 
c 



c 

c 

C 
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c 
c 
o 
c 
o 
o 
o 
o 
o 
o 
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I I 



u 



i ) 






:-0 
'"O 

o 
o 
o 
o 
o 
■o 
o 
o 

u 

o 
o 

o 



LEQ = 
|,ND s 

lng ; 

LOD s 
LOR = 
LQV s 
LSS = 
MKS 3 
MUL = 
NRQ = 
NOP = 
PRL = 

PRTE = 
ROV = 
RTN = 
RTS = 
SND = 
SSp = 
STD = 
SUB * 
XCH = 
KIT = 
ZPl = 
SCI =1 
SAN =1 
SCS =1 
COMMeNt 
DEFINE 
DIA a 
DIB = 
TRR b 

Real maxs 
integer m 



54«# 
533* 

67# 

19# 
?60# 

35# 
131* 
549* 

72* 

64* 

69* 

11* 

18* 

12* 
896*. 

39 # 
167# 
132* 
582* 

63* 

43* 
133# 

71# 
3 22* 
003* 
004* 
019* 

THESE 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
DEFINES AR 



L 



INTEGER S 
INTEGER F 



BOOLEAN D 
DEFINE PZ 
REAL Ti»T 
BOOLEAN S 
INTFGER B 
BOOLFAN J 

ARRAY GTA 
BOOLEAN 
COMME 



45*. 
49#. 
53#; 
TACK,STAC 
AXROWI 
COMMpNT 
ARRAYS 
EGSlZEMAX 

; 

REAL 

Bool 

Co MM 
0LLAR2T0G 
FR0=896#; 
2»N.K» aKK 
TOPGSP} 

up; 
nljnftogi 

COMMENT 

l r o j 1 ] i ; 
ARRAY SPR 



COMMENT 
COMMENT 
COMMENT 
KcTR; 



42?1 
4J?5 
04i5 
0H5 
20?1 
0215 
1015 
4225 
0441 
04 ol 
0425 
0055 
Oil 1 
0061 
7001 
0235 
1235 
10?1 
4431 
0421 
0301 
1025 
0435 
24H 
7655 
7661 
7755 
USE 

XX55 
XX61 
XX65 



7,4 
7.4 
7,4 
7,4 
7.4 
7.4 
7,4 

7,4 
7,4 
7.4 
7,/) 

7,4 
7.4 
7.4 
7,4 
7.4 
7,4 
7.4 
7,4 
7,4 
7.4 
7,4 
7,4 
7.4 



.6.4 
.4,4 

,3,1 

.3,4 

.10,1 

. 3 , 2 

.3,3 

,4,5 

.8,1 

,2,3 

,4,6 

.7,1 

,10.6 

.10,9 

.2.6 

,8.3 

.8,4 

,6.2 

,7,10 

,6.1 

.2,2 

,9,1 

,8,2 

,10.8 



BY EMITDI 

7,4,7,1 
7,4,7,2 
7,4,7.3 



INTEG 

LESS 

LOGIC 

LOGIC 

LOAD 

LOGIC 

LOGIC 

LESS 

MARK 

MULTI 

NOT E 

NO OP 

PROGR 

EXTEN 

REMAI 

RETUR 

RETUR 

STORE 

SET S 

STORE 

SUBTR 

EXCHA 

exit; 

CONDI 

SCAN 

SYSTE 

SCAN 



ER S 
THAN 
AL A 
AL N 
OPER 

AL 
AL E 
THAN 
STAC 
PLY; 
QUAL 
ERAT 
AM R 
D PR 
NDER 
N NO 
N SP 

NON 
IGN 

DES 
ACT; 

nge; 



re non-destruct; 
r equal to? 

iATEJ 

or; 



TO 

ND 
EG 
AT 
R * 

qivalence; 

; 

k; 

to; 

Ion; 
elease; 

Tl 

divide; 
rmal; 

EC I AL* 

-destructive; 

PLUS; 

tructive; 



tional halt; 
out initialize; 
m attention needed; 

OUT STOP; 



dial a; 
dial b; 
transfer 



bits; 



THIS CONTAINS THF MAXIMUM ROW SIZE Of ALL NON-SAVE 
DECLARED. ITS USE IS LIKE THAT OF MAXSAVE* 
J COMMENT CONTAINS MAX SEGMENT SjZE* 



nlo>nhi>tlo«thi; 

EAN DpToG; 

ENT THE ABOVE THINGS 

! 

UMJ 



ARE TEMP STORAGE FOR DOUBLE NOSj 



UNIQUE GLOBAL TEMP FOR BLOCK; 



INTEGER 
COMME 



NT 



PPM 
NT 



SPRT 
FTEL 
WORD 
PRT 
»PRTI 
PRTIM 
MfNT 



Tro 

is 
ns, 

CEL 
MAX 

AX 



i3u; 

TO BE COnStDERfD TO BE AN ARRAY OF 32 32 BfT 

the 32 bits are in the low order part of each 
the bit is on if and only if the corresponding 
l has a permanfnt assignment; 

p 

GIVES NEXT PRT CELL AVAILABLE FOR PERMANENT ASSIGN- 
PRTI fiiVpS NEXT PRT CELL POSSIBLY AVAILABLE FOR 



01654000 


T 


0003*0i 


12*0 


01655000 


T 


0003501 


12*0 


01656000 


T 


0003«0i 


12*0 


01657000 


T 


0003«0l 


12*0 


01658000 


T 


0003*01 


12*0 


01659000 


T 


0003*01 


12*0 


01660000 


T 


0003*01 


12 JO 


01661000 


T 


0003*01 


12*0 


01662000 


T 


0003*01 


12*0 


01663000 


T 


0003J01 


12*0 


01664000 


T 


0003*01 


12*0 


01665000 


T 


0003J01 


12*0 


01666000 


T 


0003*01 


12*0 


01667000 


T 


0003*01 


12*0 


01668000 


T 


0003*01 


12*0 


01669000 


T 


0003*01 


12*0 


01670000 


T 


0003*01 


12*0 


01671000 


T 


0003*01 


12*0 


01672000 


T 


0003*01 


12*0 


01673000 


T 


0003*01 


12*0 


01674000 


T 


0003*01 


12*0 


01675000 


T 


0003*01 


12*0 


01676000 


T 


0003*01 


12*0 


01677000 


T 


0003*01 


12 J 


01677050 


T 


0003*01 


12*0 


01677100 


T 


0003*01 


12*0 


01677150 


T 


0003*01 


12*0 


01678000 


T 


0003*01 


12*0 


01679000 


T 


0003*01 


12*0 


01680000 


T 


0003*01 


12*0 


01681000 


T 


0003*01 


12*0 


01682000 


T 


0003*01 


12*0 


01683000 


T 


0003*01 


12*0 


01684000 


T 


0003*01 


12*0 


01685000 


T 


0003*01 


12*0 


01686000 


T 


0003*01 


12*0 


01687000 


T 


0003»0i 


12*0 


01688000 


T 


0003«0l 


12*0 


01689000 


T 


0003*01 


12*0 


01690000 


T 


0003*01 


12*0 


01691000 


T 


0003J01 


12*0 


01691500 


T 


0003*01 


12J0 


01692000 


T 


0003*01 


12*0 


01693000 


T 


0003J01 


12*0 


01694000 


T 


0003*01 


12*0 


01695000 


T 


0003*01 


12*0 


01695500 


T 


0003*01 


12*0 


01696000 


T 


0003*01 


12*0 


01697000 


T 


0003*01 


12*0 


01698000 


T 


0003*01 


14*1 


01699000 


T 


0003*01 


17*2 


01700000 


T 


0003*01 


17*2 


01701000 


T 


0003*0i 


17*2 


01702000 


T 


0003*01 


17*2 


01703000 


T 


0003*01 


17*2 


01704000 


T 


0003*01 


17*2 


01705000 


T 


0003*01 


17*2 



c 

c 
c 
c 
c 
c 
c 
c 

c 

c 
o 
c 
o 
o 
o 
o 
o 
o 



u 

o 
o 
o 

i :! 

E 

i jo 

o 

o 
o 

o 
o 
c 

I ° 
o 

o 

o 

o 

o 

o 



temporary asstgnme 

DEFINE ALPHASiZe = r t ? ! 6 3 # ; COM 

poSi 

CnNT 
DEFINE EDOClNDEX * !,« C 36 5 3] » L, [ 3 



DEFINE 
DEFINE 

PROCED 
ALPHA 

Real p 

BOOLEA 

REAL, P 

PROCED 

INTEGE 

ARRAY 

DEFINE 

Real c 

ARRAY 
ARRAY 



rPLUSl = 
rPLus? = 



769*1 

77o#: 



LlRF F 
PROCF 
ROCFD 
N MAC 
ROCED 
URF. E 
R PRO 
CALLA 

CALL 
ALLX, 
NESTP 

SORT 



LAGCFRRNU 
DURE 82DC 
URE TAKFf 
ROID? 
URE FIXDE 
RR CERRNU 
CEDURE GI 
TO* 31 * t ^ 
CCALLHsC 
CALLINFOf 
RTfPRTBAS 
PRT[0IPRT 



comment s 
comment c 

USED IN Th 

m); vaLUf f 

B)J VALUF B 

w); valuf w 

FINElNFOfT) 
M)» VALUF F 
TCL>* VALUE 
553 J 
ALLA[(GT3*c 

nestctr»nes 

E5PRT0P]; 
OP-PRTBASE] 



NT? 

MENT ALPHASiZE IS THE DEFINE FOR THE BIT 

tion In the second Word of inTo which 

alns the length of alpha) 

9 ; 7 J # ; comment edocIndex is the Word 

PORTION OF L SPLIT INTO A ROW AND 

COLUMN INDEX FOR EDOc; 
EE COMMENT AT CPLUS2 DEFINES 
Pt-Usl AND CPLUS2 ARE EXPLICIT CONSTANTS 

e gfNfRation of c-Relative CODE) 
rrnum; integer FRRNUMJ FORWARD) 
j Real b; forward; 
i integer w; forward; 

; value t; real t; forward; 
rrnum; intfger errnum; forward; 
l; real l' forward; 

all1),linkr»gt3,linkc3#; 
tcur; 



comment "rLankft» blanks out n + i words in "TheRe"; 

STREAM PROCEDURE BLANKETC N, THfRf ) ' VALUE Nl 

begin 

di!=there; ds«=8 lit" »; si:=there; dsj=n wds; 

end blanket; 

stream procedure changesEqcval»oldseq); value oldseqj 

BEGIN DI|=OLDSEQj S I J = V A L ; DS:*8 DEC END CHaNGESEQ; 

stream procedure seouenceerrorcl); 

begin dl!=l; ds:-16 llt"sequence error "; end sfquenceerror; 
stream procedurf gftvoidcvp»ncR.lcr»seq); valuf ncr»lcr; 

BEGIN 

LabfL uexit; 

LOcaL N; 

sissNcr; di;=vp; dss=8 lit "0"; 

2C34CIF Sc«" " THE'M SlJ=Sf+l ELSE JUMP OUT 2 TO L ) ) ; 

GO T FXIT; 3! NO VOID RANGE GIVEN, RETURN ZERO, 

u * 

if sc="S" Then go to exit; % still no range, 
if sc=""" Then 

RFGTN 

st : = s t + i ; nn = LCR; os; = t ltT"""; % stopper for scan 

NcRt-Si; % TEMP, STORAGE* SINCE NCR IS "LOCAL" TO GETVOfD. 
8fiF Sc=:«M.tf THEN JUMP OUT fLSe 

begin tally;=tally+i; s i ; =s i + i end); 

END 

Else begin 

NjCRtsSi; % TEMP* storage, since nCr IS "LOCAL" To GETVqID, 
DI:=LCr; DS j = t LIT" »; % STOPPER FoR SCAN 
8CIF SC=" " THEN JUMp OUT ELSE 

BEGIN TALLYj~TALLY+l j Sl?=Sl+l END); 

end; 
si?=nrr; d!;=vp: dl5=di+8; % restore pointfrs. 
Ns = t ally; nu=ni-N; oss=n chR; 
fxit« 



01706000 T 


0003 « Oi i 7» 2 




01707000 T 


0003»0n7»2 




01708000 T 


0003!0117»2 


c 


01709000 T 


00035011752 




01710000 T 


0003:011712 




01711000 T 


0003:0117:2 


c 


01712000 T 


0003; Ot 17 1 2 




01713000 T 


0003:0117:2 




01714000 T 


0003:0117:2 


c 


01715000 T 


ooo3;on7;2 - . 




01716000 T 


000380H7J2 




01717000 T 


0003:0117:2 


• c 


01717700 T 


0003?0ii7:2 




01717800 T 


0003?0n7»2 




01717900 T 


0003»0ii7l2 


c 


01718000 T 


000350117:2 




01719000 T 


0003;0n7;2 




01720000 T 


0003:0n7:2 




01721000 T 


0003;0n9:3 




01722000 T 


0003 J0119 5 3 




01724000 T 


0003*01 19 J 3 


c 


01725000 T 


0003:012250 




01726000 T 


00035012650 


S~~\ 


01737300 T 


0003J012610 


c 


01737350 T 


00035012650 




01737400 T 


00035012650 


."•"V 


01737450 T 


00035012712 


c 


01737500 T 


0003!012952 




01741200 T 


00035012953 




01741300 T 


0003:012953 


c 


01742100 T 


0003:0131:2 




01742110 T 


0003:013152 




01756000 T 


00035013353 


c 


01757000 T 


00035013353 




01758000 T 


00035013450 




01759000 T 


0003:0134:0 





01761000 T 


0003:0134:0 




01762000 T 


000350l35t3 




01763000 T 


000310138:1 





01764000 T 


00031013851 




01764500 T 


000350138: 1 




01765000 T 


00035013913 





01766000 T 


0003501AOSO 




01767000 T 


0003:0140:0 




01768000 T 


00035014H3 





01769000 T 


00031014210 




01770000 T 


0003 J 0143* 3 




01771000 T 


00035014552 





01772000 T 


0003 * O145 ' 2 




01773000 T 


00035014552 




01774000 T 


00035014553 





01775000 T 


0003:0146:0 


. - , 


01776000 T 


0003:0147:3 




01777000 T 


0003:0149:2 





01780000 T 


0003:0149:2 




01781000 T 


0003:0149:3 




01782000 T 


0003:015152 







-:" c 

.:. --■ END OF GETVOIO; 01784000 T 0003*0151*2 

REAL VOTDCR»VO!nPLACE»VOIDTCR.VOIOTPLACHi 01785000 T 0003:0151 :2 

° ' FORMAT 01800000 T 0003*0151*2 ^ 

BUG(X24»4f A4,X2>)* 01802000 T 0003?0l5l*2 

START OF SFGMENT ********** H ^_ 

^ 4 IS 8 LONG, NEXT SEG 3 

PROCEDURE DATiMe* 01820000 T 0003*0l5l*2 

BEGIN 018?1000 T 0003*0151*2 

^ INTfGFR H»MiN,Q; ALPHA N1,N2* 01822000 T 0003l0i5il2 <~ 

- start of segment ********** 5 

n ALPhA STREAM PROCEDURE OATERCDATE); VALUE DATE* 01823000 T 0005*0000*0 

^ BFGlN 01824000 T 0005*0000*0 C 

DT'sLOC DATER* Si: = LOC DATE* SI*=Sj+?J 0t8?5000 T 0005*0000*0 

'i^, ? (DS«a ? ChR' DS!=lIT»/»); r)SJ=? CHR* 018P6000 T 0005*0000*1 

~ {J EnO oP DATER) 01827000 T 0005*0002*0 <~ 

— - H: = TIME1 OIV 216000; MI,M:=CTlMEl DI V 3600) MOD 60* 01R28000 T 0005*0003*2 

;_ NlisDISK.MFlDj iM2:=DlSK,FlDs 01828500 T 0005*0007*2 

Z-'O WrItECLINE' 01829000 T 0005:0013:3 C 

I .._.... <X22* ,, RURR0uGHS R-5700 ESPOL COMPILER M A RK », 01830000 T 0005:0015:2 - - 

s **XV/I»0,1l6" 8117- 01831000 P 0006J00l5:2 

qO ," ,, »A6»"DAY» "iO,", ",I2,"J",a2,X1»a3» 01832000 T 0006:0015*2 C 

f, , ////X45,a1.a6, , V"*A1»a6*/X45»15(» = ")//>» 01832500 T 0006:0015:2 

I-, 6 IS 40 LONG, NEXT SEG 5 _ 

U riMEC6)iDATfR(TlME(5))»12xREAL(Q«»H MOD 12=0)+Q» 01833000 J 0005*0016*0 L, 

. . Q:sMfN MOD 10 + CMlN 1 V 10)x64, 01834000 T 0005*0032*0 

IF H>12 THEN "PM," ELSE "AM.'S 01835000 T 0005*0036*1 ^ 

^ Nl t [6l6j,Nl»N2,[6i63,N2); 01835500 T 0005*0043:2 C 

IF MFRGETOG THFN % INDICATE NAMf OF SOURCE FILE. 55 1 1 1 - 01835600 C 0005*0053*2 

~ WRITFCLINF,<X40, "SOURCE FiLE* " , At , A6, V" . Al , A6, //>» 8111- 01835700 C 0005*0054*0 

U 7 IS 14 LONG, NEXT SEG 5 C 

__ . ... (Nl?=TAPE,MFlD).[6*6],Nl,(N2; = rAPE,FID).C6}6],N2){ 8111- 01835800 C 0005*005^*2 

NOHFADI.MG*=FALSE* 01836000 T 0005*0077*2 

U END Of DATIME; 01837000 T 0005*0078*0 C 

SIS 82 LONG, NEXT SEG 3 

COMMENT THIS SECTION CONTAINS ALL CODE PFRTAlNENT TO READING CARDS 02000000 T 0003*0151*2 
U AND SCANNING THfM; 02001000 T 0003*0151*2 ^ 
__ X*********************************************************************** 02001605 C 0003*015112 

,~ % 811.0- 02001610 C 0003*0151*2 

O % miscellaneous cross reffRence procedures 8iio- 02001615 c 0003*0151:2 ^ 

..... % 5X1 1 0- 02001620 C 0003*0151*2 

£*********************************************************************** 02001630 C 0003*0151*2 ^ 

O 8 2110- 02001635 C 0003*0151*2 C 

PROCEDURE CROSSREFIT(INDEX,SEqNo»REfTYPE); 2110- 02001640 C 0003*0151*2 

VALUE INDEX, SeQNO,REFTYPe; XI 10- 02001645 C 0003*0151*2 _ 

O REAL INDEX, Se^NCREFTYPe* 8110- 02001650 C 0003*0151*2 C 
. . . . BEGIN 8110- 02001655 C 0003*0151*2 

if xrffinfoc iNdexj. idnof # o then % save 8iio- 02001660 c 0003*0151*2 ^ 

'^ BEGIN 8110- 02001665 C 0003*0155*3 ( ~ 
....... T F XRrFPT > 29 THEN % NO SLOTS LEFT IN ARRAY. WRITE IT OUT, 2U0- 02001670 C 0003*0156*0 

~ BEGIN 8110- 02001675 C 0003*0157*2 -. 

U WrITE(DSk?»30»XrEFAY 2 [*]); 8n0- 02001680 C 0003*0157*3 ^ 
XpEFpT 5= OJ 8110- 02001685 C 0003*0161*3 

,~, END; 8110- 02001690 C 0003*0162*1 

U XrEFAY2CXrEFPT] j= SEqNO ft rEFTY P e TYpEREF & XREFlNForiNDEXJ 8110- 02001695 C 0003:0162*1 O 

REFIDNOFJ Xt 10- 02001700 C 0003«0l66Jl 

XRFFPt : s XRFFPT + 1» * EVEN THOUGH THE ARRAY MaY BE FULL NOW WE 8110- 02001705 C 0003:0168:0 _^ 

O % CA NT WRITE IT OUT BECAUSE SOME ROUTINES 8110- 02001710 C 0003:0l69$3 O 



O 



c 



u 



u 

o 
o 

p 

c 
o 

o 
o 



o 



o 
o 
o 
o 
o 
o 
o 

o 



* WILL LOOK BACK AT THF ENTRY WE JUST PlJT X 

* IN A Nn FIX IT UP. X 

end; % 

END OF CROSSREEITJ ?! 

X % 

PROCEDURE CROSSREFDUMPCINDEX); % 

VALUE INDEX; % 

REAL INDEX} % 

BEGIN X 

. STREAM PROCEDURE MOVEXREF INFO C S p D# N ) I X 



» »f 



DS 
? = 



i= 7 WDSJ X BLANK RECORD 
N CHRf X MOVE IDENTIFIER 



VALUE N; 
BEGIN 

Si := DJ D! Is n? DS *= 8 LjT * 
S? ! = S» SI := SI + 3J DI '= D5 DS 

FND Or movexRffinfoj 

X 
IF XREFlNFOtlNDEXj.IDNOF t THEN X DUMP IT 
BEGIN 

MOVEXREFlNFOClNFotlNDEX.LlNKR* INDEX, LI NKC+U»XREFAYlt*]i 
TAKEClNDEXfl5.C12»6J); 

XREFAY1C8J ! = XREFINFOCINDEXJ? 

XREFAYU9] := TAKF(INDEX)} X FLBAT WORD 

WRITE(OSKltlO,XREFAYU*]}» 

XREFINFOt INDEX 3 i = 08 

end; 
end of crossrefdump; 



COMMENT 
BOOLEAN 
. BEGI 
SI 8 = 
CNT( 

Si: = 

OCT!. 
END 

comment 

BOOLFAN 

BEGI 
COMMENT 

DI 1 = 
SI Is 
CNTC 



OCTI 
STREA 
N 

S; SI 
IF SC 
3CIF 
DI IF 

BEGI 
ZE» = T 
OCT I Z 

HFXI 
STREA 
N LO 

LOCA 

W A Y 
LOc T 

s; si 

IF SC 

RFGI 
Tl : = 

nss = 
DS: = 
GO A 

end; 

IF S 



ZE REFORMATS ACCUM FOR OCTAL CONSTANTS; 

M PROCEDURE OCT I ZEc S> 0, SKP» CNT ) ; VALUE SKP*CNT; 



8=SI+4; DI 
>"8" THEN 
SB THEN DS 

SB THFN 
N TALLYt= 

ally; % "1 

e; 

ZE REFoRMA 
M PROCEDUR 
CAL TpT2» 
L VARIABLE 
THEY ARE D 
EMPl; CNTC 
5=Sl+3; DI 
<"0" THEN 
N 

Si; T25=DI 

3 resft; s 
l add; dji 
gin; 



:=D; SKP(DS: = 3 RESET)? X RIGHT JUSTIFY, 
TALLY:=1 ELSE IF Sc<"0" THEN TALLYs=i; SKIP 3 

!=set fLse ds;=reset; SKIP SB)); 

i; dh=D) ds; = rf_$et end; % prevent flag bit, 

» = NON OCTAL CHARACTER OR FLAG BIT, 

TS ACCUM FOR HEXADECIMAL CONSTANTS; 

E HEXIZE(S»D,SKP»CNT); value skp»cnT; 

1EMP2»TEMPU LABEL AGIN; 

S ARE LOCATED IN REVERSE ORDER FROM THE 

ECLaRED IN STREAM PROCEDURES; 

DSJ = LlT ,f l")J * IN CASE A CHaR* A» B» C ' D» OR F, 

8=LOC TEMPI; X WE MAY OVERFLOW INTO TEMP2, 

IF SC>"A" THFN IF SC<"F" THEN X WORK HARD. 

; di «=Ti; si : - t 2 j x flip, man, 

1 ;=ti; dp=t?; x flip back, 

sDi-u skip 2 db; dsj=i set; skip 3 db; 



C<«0" THEN TALLY:=i; DS8=CHr; X < = NON-HEX CHARACTER. 



A G I N ! 

); 

SI Is 

CNTC 



LOC TEMPI; 
SKiP 2 sb; 



DIi-D; SKPCDS:*" RESET); X RIGHT ADJUST CONSTANT, 



10- 0200 
10- 0200 
1.0- 0200 
10- .0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
START OF SEG 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
10- 0200 
8 IS 28 
0200 
0200 
0200 
0200 
SB; 0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 



1715 
1720 
1725 
1730 
1735 
1740 
1745 
1750 
1755 
1760 
MENT 
1765 
1770 
1775 
1780 
1785 
1790 
1795 
1800 
1805 
1810 
1815 
1820 
1821 
1822 
1825 
1830 

LONG, 
1836 T 
1838 
1840 
1842 
1844 
1846 
1848 
1850 
1852 
1854 
1856 
1858 
1860 
1862 
1864 
1866 
1868 
1870 
1872 
1874 
1876 
1878 
1880 
188? 
1884 
1886 
1888 
1890 
1892 



0003 


(01691 


0003 


I0169J 


0003 


(0169* 


0003 


S0169? 


0003 


10169! 


0003 


10169! 


0003 


10169? 


0003 


10169! 


0003 


(01691 


0003 


(0169? 


********* 


0008 


iOOOOi 


0008 


toooo; 


0008 


"0000! 


0008 


10002! 


0008 


(0003! 


0008 


0003! 


0008 


10003! 


0008 


10007! 


0008 


0008! 


0008 


0011! 


0008 


10013! 


0008 


(0017$ 


0008 


(0019! 


0008 


0023! 


0008 


(0027! 


0008 


10027! 


NEXT SEG 


0003 


(01691 


0003 


0169! 


0003 


0169! 


0003 


0170! 


0003 


0172! 


0003 


0175! 


0003 


0177! 


0003i 


0178! 


0003 


(01798 


OOO3 


!0i79i 


0003 


0180! 


0003 


(0180! 


0003 


.0180! 


0003: 


0181! 


0003 


(0181! 


0003 


0181! 


0003 


0183! 


0003 


(0183! 


0003 


10187! 


0003 


10187! 


0003 


(0188! 


0003! 


01895 


0003 


(0i90? 


0003 


0191! 


0003! 


0191' 


0003 


0192! 


0003 


0192! 


0003! 


0192! 


0003801941 



C 

c 
c 
c 
c 

c 
c 

c 
c 

c 
c 
c 
c 
c 
c 
c 

c 



o 

o 
o 
o 

p 

o 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 

o 



4f 

sii; 

HEX T 

End 

COMMENT 



STREAM p 
BEG! 
COMMENT 



STREAM P 
BEGj 
COMM 

BOOLEAN 



IF SB 
Dl IF 

BEGIN 

ZEt-TA 

HEXIZE 

PUTSE 

CURRE 

IT IS 

ROCEDU 

N 01 * 

TURNO 

I ,F, » 
CFNT 

the s 

ROCEDU 
N DI 8 
FnT Wr 



Then nS»=SET else os$=Rfset; skip sb))jx final convert, 
sb then 

TAllY;^; DIIsDi ds?=reset 
LLY; % "1" IF PROGRAMMER GooF 



END! % PREVENT FLAG BIT, 
ED, 



STREA 
BFGIN 
DI+NE 



ON 

NT 

N 

Re 
= i 

N S 

T 

S| 

CA 

re 
=c 

IT 

An 

M 



S 

:wi 

w 

commfnt mkab 

Real stream pro 

be 

REAL STrEAM PROC 
BE 

EN 
STREAM PROCEDUr 



PUT 
LY RE 
EEDED 

PUTS 
NFO? 
TOPLI 

HE PU 
fiN iN 
NNpRJ 
TURN 
ORNER 
NEW T 
D REP 
PROCE 

1 * F 
DS*tO 
RITNe 
S CON 

CEDUR 
GIN D 

EDUrE 

GIN 

SI 
Dl 
E 



S THE SEQU 
ING SCANNF 

FOR FUTUR 
EQNOCiNFOc 
SI:=LcRJ D 
GHT TURNs 
RPOSe Of T 

COLUMN 73 



0NST0 
i SI 8 

RANSF 
ORTS 
DURE 
CRj I 

WDSJ 
W * T 
VERTS 
E MKA 
I «- A 

CONV 



PLIGH 
= LOC 
ERS t 
IF TH 
WRlTN 
F SC 

aLLy 

A HE 
BS(A); 

; mkAbs «. 
caccUm»skp 



ENCE 
D INT 
E REF 
LCR)J 
s:=w D 
THE L 
HIS R 
AS a 

TCRED 
CORNE 
HE CA 
E CAR 
EWCNF 
* "$" 

fNd w 
scRip 



NUMBER OF THE CARD-IMAGE 

o the info table In case 

ERENCEJ 

value lcr; 
s? end PUTSEQNO) 
IGHT "RED" ON THE "CORNER". 
0UTIN E IS TO INSfRT A PeR" 
N END Op CARD SENTINEL FOR 

•CORNER)? VALUE RED»CORNERJ 

RJ su=si-iJ dsssChr End; 
rd image to the newtape buffer 
d might be control card? 
w#fcr>; value fcr; 
then tally * u 

RitNew* 

TOR TO AN ABSOLUTf ADDRESS; 

di end mkabs? 
»n)»*value skp»n? 



accum; Sl*5l+SKP*SI*SI+3JDI*L0C CONV;DS*n OCT 

SKIP»DEST»DSKlP); 



COMMENT 

STREAM 

STREAM 
BEGIN |, 
SI*FIE 
SI«-T;DT 

end; 

COMMENT 



BOOLEAN 
BEGT 
TALL 
IF C 
END 
PROCFDUR 
PROCEDUR 
BOOLEAN 
PROCEDUR 



MOVE 

PROCED 

PROCED 
OCAL T 
L) DI* 
*FIELJ 



CH 
SO 
UR 
BE 
UR 
i 

LO 
DI 



MOVECHARACTF-RSCNt SORCE.S! 

VALUE N»SSKIP»DSKIP; 

BEGIN 

SI*S0RCE ; DI*DEST; 

SI*SI+SSKIPJ DI* DI+DSKI 

DS «• N CHR ; 

fnd ; 
aracters moves n character 

RCE" TO THE DSKiP-Th CHAR I 

e move(w>»words from"(a)"to 
6inSi*a?oi*b;ds*w 

E RESIZECFIEDJ 



P ; 



S FROM THE SSKIP-TH CHAR IN 
N "DEST", ; 

»(B); value w; 

WDS END? 



C T; DS<-WDS; 
♦Dl+l; SKIP 2 



db; ds*io set 



CATED AT A AND B FOR 
THE LOOK-UP OF ALPHA 



EQUAL COMPARES COUNT CHARACTERS LO 

EQUALITY, THIS ROUTINE IS USED IN 

QUANTITIES IN THE DIRECTORY? 
STREAM PROCFDURE EQUALf COUNT , A, B ) J VALUE COUNT; 
N 

yj=i; s t s=a; dis=b; 

ount sc = dc then equal 8 =tally 

fqual; 

E RFADAcARn; FORWAKD; 
E rOLLARCARD? FORWARD; 
PROCEDURE BOOLEXP; FORWARD? 
E SCANNER? 



02001894 
02001895 
02001896 
02001897 
02001898 
02002000 
02003000 
0200*000 
02005000 
02006000 
02007000 
02008000 
02009000 
02010000 
0201 1000 
0201 2000 

02014000 
02015000 
02016000 
02017000 
02018000 
02020000 
02021000 
020?2000 
02023000 
02041000 
02042000 
02043000 
02044000 
02045000 
02046000 
02047000 
02048000 
02049000 
02050000 
02051000 
02052000 
02053000 
02054000 
02055000 
02056000 
02057000 
02058000 
02059000 
02060000 
02061000 
02061500 
02062000 
02062500 
02063000 
02063500 
02064000 
02064500 
02065000 
02065500 
02065600 
02066000 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003? 



50195J 


»0i975 


501985 


501995 


502005 


802015 


802015 


802015 


502015 


502015 


80202: 


502025 


502028 


802028 


502025 


502025 


502038 


80203C 


J0203: 


J0203: 


502058 


80205: 


802068 


802068 


502065 


80208J 


502088 


802098 


802105 


502118 


502115 


502118 


50212s 


502125 


502135 


802148 


502148 


502145 


802145 


502145 


502165 


802168 


502175 


802175 


5 02195 


502195 


802195 


502195 


802198 


502198 


502205 


502205 


502215 


8 0222* 


502225 


502225 


502225 



c 



c 
c 
c 
c 
c 
c 
c 
c 



c 
c 
c 






c 

c 



o 



o 
o 
o 
o 

p 

JO 

o 
o 



o 



o 

o 
o 
o 



o 



o 

o 
o 

o 



BEGIN 

comment "scan" is the stream procedure which does the actual scanning, 
it is driven by a small w ord mode procedure called "scanner"* 
which checks for a quantity relng broken across a card, "scan" 

IS CONTROLLED BY a VARIABLE CALLED "RESULT", "SCAN" ALSO 
INFORMS THE WORLD OF ITS ACTION BY MEANS OF THE SAME VARIABLE. 
HENCE THE VARIABLE "RESULT" IS PASSED BY B°TH NaME AND VALUE. 
THE MEANING OF "RESULT" AS INPUT IS! 
VALUE MFANING 







START TO FETCH THE 

(INTERRUPTED BY 



5 

6 

7 

THE MEANING 

VALUE 



INITIAL CODE - DEBLANK AND 
NFXT QUANTITY, 

CONTINUE BUILDING AN IDENTIFIER 
ENd"Of-CaRD BRfAK), 

last quantity built was special character. 

exit (interruption by end-of-card break is 

important). 

continue building a number (interrupted 

card break), 

last thing was an error (count exceeded 

FXlT (INTERRUPTION BY FND-Of-CARD BREAK 

important)^ 

get next chaRactfR and exit. 

scan a comment: 

DEBLANK ONt.Y, 

OF "RESULT" AS OUTPUT IS! 

MEANING 



HENCE* 
NOT 



BY END-OF- 

hfnce. 



63), 

NOT 



1 

7 
3 
"SCAN" 
DISCAR 
FOR TH 
"COUNT 
"SCAN" 
THE VA 
ULATOR 
"COUNT 
CONVEN 
"NCR" 
NAME A 
"STl" 
PASSED 
ARRANG 
J 
STRfAM proc 



A 

A 

A 

PUTS A 

DED BLA 

E REST 

" IS TH 

HAS PU 

LUE SO 

" AND N 

" IS PA 

IENT TO 

(NEXT C 

NO valu 

AND "ST 
TO "SC 

EMENT, 



N IDE 
SPEC 
NUMB 
LL ST 
NKS) 
OF TH 
E V A R 
T INT 
THAT 
EEDS 
SSED 

HAVE 
HARAC 
E So 
2" AR 
AN" I 



NT IF I 

IAL C 
ER (I 
UFF S 
INTO 
IS DI 
IARLE 
THE 
IT CA 
TO Up 
BY BO 
(63- 
TER T 
TH A T 
E TEM 
N ORD 



ER WA 
HARAC 
NTEGE 
CANNE 
"ACCU 
SCUSS 
THAT 
"ACC 
N PUT 
DATE 
TH MA 
COUNT 
BE 
IT MA 
PORAR 
ER TO 



S BUI 
TER W 
R) Wa 
D CEX 
M" (C 
ION), 

GIVE 
UMULa 

MORE 
"COUN 
ME AN 
}. TH 
SCANN 

Y BE 

Y STO 
OBTA 



LT. 

AS OBTA 
S BUILT 
CEPT FO 
ALLED " 

S THF N 
TOR", 

CHARAC 
T" FOR 
D VALUE 
IS IS C 
ED) IS 

Updated 

RAGES W 
IN THE 



INED, 

R COMMENTS AND 
ACCUMULATOR" 

UMBER OF CHARACTERS 
SINCE "SCAN" NEEDS 
TERS INTO THE "ACCUM- 
THE OUTSIDE WORLD* 
, IT IS ALSO 
ALLED "COMCOUNT". 
ALSO PASSED BY 

HICH ARE EXPLICITLY 
MOST USEFULL STACK 



EDURf. SCAN(NcR.COUNTV. AC CUM* COMCOUNT. RESULT* RESULT V, 



COMMENT 



COUNT, ST2,NCRV»ST1); 

VALUE COUNTV. cOMcount , Resultv » st2, NcRv. st t ; 

BFGIN 

LABEL DEBLANK, NUMBERS » I DBL0R*GNC,K,EX IT, FIN IS, L. ERROR, 

commfnts,commanTs* 

D1'=RESULT! DIlsDl+71 SUsNCRVJ 

SETUP »DI« FOR A CHANGE IN "ReSUlT" AND "SI" FOR A LOOK AT 

the buffer* 

ci s=ct+Resultv; % switch on value of Result; 



START 



02066500 


T 


0003*0222*1 


0?0fi7000 


T 


0003*0?22' 1 


02067500 


T 


0003*0222*1 


02068000 


T 


0003J0222J1 


02068500 


T 


0003*0222*1 


02069000 


T 


0003*0222* 1 


02069500 


T 


000310222:1 


02070000 


T 


000310222*1 


02070500 


T 


0003*0222*1 


02071000 


T 


0003*0222* 1 


02071500 


T 


0003*0222*1 


02072000 


T 


0003*0222*1 


02072500 


T 


0003*0222*1 


02073000 


T 


0003*0222*1 


02073500 


T 


0003*0222*1 


02074000 


T 


0003*0222*1 


02074500 


T 


0003*0222*1 


02075000 


T 


0003*0222*1 


02075500 


T 


0003*0222*1 


02076000 


T 


0003*0222*1 


02076500 


T 


0003*0222* 1 


02077000 


T 


0003*0222' 1 


02077500 


T 


0003*0222* 1 


0^078000 


T 


0003*0222* 1 


02078500 


T 


0003*0222*1 


02079000 


T 


0003*0222*1 


02079500 


T 


0003*0222*1 


02080000 


T 


0003*0222*1 


02080500 


T 


0003*0222*1 


02081000 


T 


0003*0222*1 


02081500 


T 


0003*0222*1 


02082000 


T 


0003*0222*1 


02082500 


T 


0003*0222*1 


02083000 


T 


0003*0222*1 


02083500 


T 


0003*0222*1 


02084000 


T 


000350222*1 


02084500 


T 


0003*0222*1 


02085000 


T 


0003*0222*1 


02085500 


T 


0003*0222*1 


02086000 


T 


0003*0222*1 


02086500 


T 


0003*0222*1 


02087000 


T 


0003*0222*1 


02087500 


T 


0003*0222*1 


02088000 


T 


0003*0222*1 


02088500 


T 


0003*0222*1 


02089000 


T 


0003*0222*1 


02089500 


T 


0003*0222*1 


OF SEGMENT 


********** 


02090000 


T 


0009*0000*0 


02090500 


T 


0009*0000*0 


02091000 


T 


000910000*0 


02091500 


T 


0009*0000*0 


02092000 


T 


0009*0000*0 


02092500 


T 


0009*0000*0 


02093000 


T 


0009*0000*1 


02093500 


T 


0009*0000*1 


02094000 


T 


0009*0000*1 



c 
c 
c 



c 



c 
c 
c 
c 
c 
c 
c 
c 
c 

c 



c 



c 
c 






^J 



o 



o 



p 
to 






o 



o 
o 
o 
o 
o 
o 



l" \ 



o 
o 
o 

o 



K? 
DEBUNK. 

L» 
COMMENT 

comment . 

GNc: 

cOmmaNt.s; 
comments 1 

COMMENT 
I DBL.DR J 



fiO 

GO 
GO 
GO 
GO 
fiO 
GO 

IF' 

GO 

IF 



DERLANKJ 

IDBLOR? 

finis; 

NUMBERS; 
FlNfS; 
GNC I 
COMMaNTS? 





1 

2 
3 
4 
5 
6 
7 



% 
SC=" " THEN 

bfgin si; s si+1; 
finis; 



S TNjTlAL CODE, 

S rD CODE* 

S SPECIAL CHARACTER CODE. 

S NUMBER CODE, 

S fRROR CODE, 

s get next character code, 

S COMMENT CODE, 

S DEBUNK ONLY CODE, 



IF Sc = ' 



THEN GO K END; 



SC=" " THEN 

begin su-si + n if sc-" " then go l end; 

IF WE ARRfVE HE^E WE HAVE A NON-BLANK CHARACTER' 

NCRVlaSp 

IF SC > "0" THEN GO nUmBERSJ 

IF SC=ALPHA THEN GO IDBLOR; 

IF WE ARRIVE HERE WE HaVE A SPECIAL CHARACTER (OR GNC); 

DS:=L.lT"2"{ TALLY: = 1j sH=sI + 1; go exit; 



IF 



SC*"J" 7HFN 
BFGIN 



THEN 
THEN 



GO 
GO 



IF Sc > »% n 

if Sc < ";" 

CHARACTERS BETWEEN % AND 
MODE PART OF COMMfNl ROUTINE; 

end; 
GO F I n i s ; 



comments; 
comments; 

SfMicOLON 



ARE HANDLED BY WORD- 



ERROR?. . 

nOMMENj 
NUMbfRS: 

EXiT: 

comment 



taLLy!=63j ds;=^it "l"; 
comcOijnt(taLLys=taULy + i; 

if sc=alpha then si»=si+i else Jump out to exit); 
tally:=tally+i; 
if sc=alpha then 
begin 

Dl{=DI-i; DS:bLIT "4"; Go EXIT; 

END 
FlSE GO EXIT; 
IF WE ARRIVE AT ERROR WE HaVE MORE THAN 63 CHARACTERS 

in an identify or number? 

tally«-63j ds;=Lit "3"; 
c0mc0unt(tallyi=tally+1* 

if SC <"0»T H EN JUMP OUT To eXiT; si;=si + d; 

go error; 

STpsTALLY; % "STi" contains number of characters we are 

% GOING TO MOVf INTO THE "ACCUMULATOR", 
TaLLY J = TaLL.Y + cOUNtV; ST2I = TALLY| 

ni;=cOuNT> spaLOr st2j dsj=wds; 

THIS CODE UPDATED "COUNT"; 
nTi=ACcUMj SllsSi-3; DS*=3 CHR' 



02094500 


T 


02095000 


T 


02095500 


T 


02096000 


T 


02096500 


T 


02097000 


T 


02097500 


T 


02098000 


T 


02098500 


T 


02099000 


T 


02099500 


T 


02 


100000 


T 


02 


100500 


T 


021 


101000 


T 


02< 


101500 


T 


02 


02000 


T 


02 


02500 


T 


02 


03000 


T 


02! 


L03500 


T 


02 


104000 


T 


02] 


104500 


T 


02] 


[05000 


T 


02 


105500 


T 


02] 


106000 


T 


021 


106500 


T 


021 


07000 


T 


021 


07500 


T 


021 


[08000 


T 


021 


08500 


T 


021 


109000 


T 


021 


109500 


T 


02] 


L 10000 


T 


02] 


[10500 


T 


02] 


I 1 1000 


T 


02] 


111500 


T 


02] 


12000 


T 


021 


112500 


T 


021 


113000 


T 


021 


113500 


T 


021 


14000 


T 


021 


[14500 


T 


021 


115000 


T 


02< 


[15500 


T 


021 


16000 


T 


021 


116500 


T 


02] 


117000 


T 


02] 


.17500 


T 


02] 


18000 


T 


021 


18500 


T 


021 


19000 


T 


021 


19500 


T 


021 


20000 


T 


021 


20500 


T 


021 


21000 


T 


021 


21500 


T 


02] 


[22000 


T 


021 


22500 


T 



0009 


(00011 


0009 


(0001» 


0009 


! 0001 * 


0009 


10002' 


0009 


10002! 


0009 


1 0002* 


0009 


!0002» 


0009 


00038 


0009 


(0003! 


0009 


(0003$ 


0009 


(00058 


0009 


S0005J 


0009 


(00058 


0009 


100068 


0009 


.00088 


0009 


100088 


0009 


I0008» 


0009 


8 0009* 


0009 


'0009J 


0009 


00098 


0009 


00098 


0009 


100118 


0009 


00118 


0009. 


00128 


0009 


(00128 


0009. 


00J38 


0009 


100138 


0009 


100148 


0009 


00148 


00091 


00148 


0009 


00148 


00091 


00148 


0009 


00158 


0009' 


00158 


00091 


00158 


0009 


00178 


0009 


00188 


0009 


0019S 


0009 


00198 


0009 


00198 


0009! 


0020J 


0009! 


00218 


0009 


0021! 


0009! 


00218 


0009! 


00218 


0009 


00218 


00091 


00218 


0009! 


00228 


00091 


0024« 


0009! 


00258 


0009! 


00258 


0009! 


00258 


00091 


00268 


0009! 


00268 


0009) 


0027! 


0009! 


00278 


0009! 


00278 



c 

c 
c 



c 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 

*—• 

c 
C 



c 



o 
o 
o 
o 
to 
to 

F 

to 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



COMMENT THIS CODE PLACES "COUNT" IN "ACCUM't AS WELL? 

Dt *=L)T+COUNTVJ X POSfTyON »Dl" PAST CHARACTERS ALREADY 
2 TN THE "ACCUMULATOR", IF ANY, 

Sl!=NCRV; DSjsST! CHR? 
COMMENT MOVE CHARACTERS InTo "ACCUm"; 
FINIS: 

HI j-NCRj ST 1 ! =S I ; Slj=LOC ST1; DS»=WDS; 
COMMENT RESET "NcR" TO LOCATION OF NEXT CHARACTER TO RE SCANNEDI 

END OF SCAN} 
LabfL L;% 
L* 

SCANCNrR. COUNT, ACCUM[1],63- C 0UNT# RESULT, 
RESULT, COUNT, 0, NCR, 0)1 

IF nCR=LCR THEN 
BEGIN 

READACARDJ 
GO To LJ % GO DIRECTlY TO L, DO NOT PASS G0> 

% do not collect £200, 
end; 

END SCANNER? 

DEFINE WRITELIN F = if SlNGLTOfi THEN WR I TECL I Nf» 15, L I N£* ] ) 

ELSE WRITE(LINe[DBL3,15»LIN[*])#, 
pRlNTCARD = BEGIN 

EDiTLINE(LtN,FCR,L DI V 4, L.r«6lg], MEDIUM, OMITTING)? 

if nqheadimG them datime; writelIne; 
end #; 
stream procedure ed i tl i necl i ne» ncr * r » l» symbol . om i t } ; 

value ncr»r»l>symbol»omit; 

BEGIN 

. di t= line; ds * = 16 lit " •'; 

SI :- NcR; n s «= 9 wds; 

DS := 6 Lit " "; 

DS * = WDS; 3! SfQUeNcE NUMreR. 

ds*;l?T" "J spsLOc symbol; sij=si + 6; 

ds?;? chR> dsj=liT» •*; 

si*i,oc r; ds*4 dec; ds*lit m »«j 

si«-i,oc LJ ds*. 1 dec; 

DS«- 6 lit •• »; 

OMITCOpsDI-121 DS*=B LIT" OMIT")* 

end editlinf; 
comment compare compares sequence numbers of tape and card. if 
tape is smaller then result - else if card is smaller 
rfsult = 1 else result = 2} 

REAL STREAM PROCEDURE COMP A REC T aPE» C ARD > ; VALUE TAPE»CARD; 
BEGIN 

Si := TAPE* DI := CARD; 
if 8 sc > nc Then 

BEGIN 

SI != S 1-8 J DI * = DI-8J TALLY '<- D 

IF 8 SC = DC THEN TALLY ;= 2 

END; 
COMp A RE := TALLY 
ENd cOMPaRf; 
PROCEDURE OutPUTSOijRcfJ 
BEGtN 

LABfL lcard,ltape,awayj 



9 IS 



02 


123000 


T 


0009J0028I1 




02 


L23500 


T 


0009*0026*1 


r 


02 


1P4000 


T 


0009*0029*2 


02 


IP4500 


T 


0009*0029*2 




02 


l?5000 


T 


0009*0029*3 


C 


02 


125500 


T 


000910029$ 3 


02 


126000 


T 


0009*0029*3 




02 


126500 


T 


0009*0031*2 


C 


02 


127000 


T 


00091003112 


02 


127500 


T 


0009*0031*2 




02 


128000 


T 


0009*0031«2 


,— . 


02 


128500 


T 


0009*0032*0 


( 


02 


129000 


T 


0009*0034*1 




02 


?9500 


T 


000950036*0 


_^ 


02 


130000 


T 


000950037*2 


c 


02 


130500 


r 


0009*0037*3 




02« 


35500 


T 


0009*0038*0 


/*""". 


02: 


136000 


T 


0009*0038* I 


u 


02 


136500 


T 


0009*0038* 1 




02 


137000 


T 


0009*0038*1 






3 9 LONG* 


NEXT SEG 3 


c 


021 


81000 


T 


0003*0222*1 




02 j 


181250 


T 


0003*0222*1 




02< 


[82500 


T 


0003*0222*1 


c 


021 


82750 


T 


0003*0222*1 




021 


83000 


T 


0003*0?22«1 




02' 


83250 


T 


0003*0222*1 


c 


02! 


1R3500 


T 


0003*0222*1 




021 


.83750 


T 


0003*0222*1 




021 


84000 


T 


0003*0222*1 


c 


02] 


184250 


T 


0003*0223*2 




021 


84500 


T 


0003*0225*3 


•»"--v 


021 


184750 


T 


0003*0226*0 


o 


021 


.85000 


T 


0003*0227*2. 




021 


85250 


T 


0003*0227*3 




021 


185500 


T 


0003*0228* 1 





021 


85750 


T 


000350229*2 




021 


86000 


T 


0003*0230*0 





021 


86250 


T 


0003*0230*1 


021 


86750 


T 


000350231«3 




021 


87000 


T 


O0O3502345 1 


.- — s 


021 


87250 


T 


0003*0234* 1 





021 


.87500 


T 


0003;0234»1 




021 


187750 


T 


0003*0234* 1 


■"~*s 


021 


88000 


T 


0003*0234*1 


o 


021 


188250 


T 


0003*0234*1 




021 


88500 


T 


0003*0235*2 




021 


88750 


T 


0003*0235*3 


o 


021 


89000 


T 


0003*0236*0 




021 


89250 


T 


0003*0236*0 


o 


021 


89500 


T 


0003*0237*2 


021 


89750 


T 


0003*0237*3 - 




021 


90000 


T 


0003*0238*0 


o 


021 


90250 


T 


0003*0238*0 


021 


90500 


T 


0003*0239*2. . 




021 


90750 


T 


0003*0239*2 


S~ V. 


021 


91000 


T 


0003*0239*2 


o 



L. 



l v^ 



o 

o 
o 

to 
o 
o 



o 



o 



o 



o 



(J 

o 
o 
o 
o 
o 

o 



SWITCH SW : b L C ARD> LCARDH-T APE* AW AY. LCARD.LT APE; 
IF sfqtog then % RESEQUENCE, 
BEGIN 

IF ToTALNO a -10 OR NlEWBASE THEN 
BEGIN 

NEWBASE 5 = FALSE? GTIU" TOT ALNO J -BASENUM 
END 

else gt i 1 j = t0taln0:= totalno + addvalue; 
changeseqcgtii.lcr)? 
end; 
if newtog Then 

IF WRlTNEWfLlN.FCR) THEN WR I Te( NEWT APE , 1 , Li N[ *] ) ; 

IF OMITTING THEN IF NOT LlSTATOG THEN Go AWAY; 

Go SWCLASTUSED]? 
LCArDj 

IF LISTER OR LIsTPTOG THEN PRINtCARD; 

GO AWAY J 
LTAPFS 

if listfR thfn priNtcard; 
% go away; 
away' 

end outputsourcf* 

procedure beginprlnt; %\0&> 

BEGIN X108- 

STREAM PROCEDURE STUfF(N»L>* VALUE Hi 3? i 08> 

BEGIN £108' 

011=1,; DS;=8 LIT " "; SI;=L; DSj = 13 WOS; &108- 

SI ;=L0C N; DS!=fl DEC? 35108' 

END; £108' 

STUFFtBEGINSTACK[8SP0lNTJ»HN); XI 08' 

IF NOHEADING THEN DATlME; WRITELINE; SS108' 

fnd peginprint; ^1 08- 

procedure readacard; 

comment readacard reads cards from either the card reader or the 
tape merging as requested a nd creating a new tape and 
listing if requested. readacard also inserts a percent 

SIGN as AN END OF CARD SENtINeL IN COLUMN 73 aND SETS 
FtR»NcR»LrR»TLcP» ANn cLcR; 
BEGfN 

PROrFDIjRF RfADTaPe? 

bfgin 

LABEL ENDRFADTAPE. FOFT; xt 05- 

read (Tape. 10. tbuffc*])ceoft]i %\o<5< 

l.cr;=mkabS(Tbuffc9]); sios- 

go to endrfadtape; x105- 

E0FT: X105- 

DEFINEARRAY[?5]!="ND;END."R "E"[U43I5]J *105' 

DEFINEARRAYI34] :="9999" & " 9999 M Cl:p5»233; 3S105" 

TLcRj= MK a rs(dEFINfaRRaYC3^])j X105' 

PUTSFQNO CnEFlNFARRAYC33]#TLCR"8)> X105- 

TURNONStOPLIGHTCX". TLcR"8); X105* 



START 



10 IS 



START 



11 IS 



START 



START 



OF SF 
021 

021 
021 
021 
021 
021 
021 
021 
021 
021 
021 
021 
021 
0?t 
021 
021 
021 
021 
021 
021 
021 
021 

6 
0?1 
021 
021 
OF SE 
021 
021 
021 
021 
021 
021 
021 

1 

021 
021 
021 
021 
021 
021 
021 
021 

Of sf 

02? 
02? 
OF SE 
02? 
02? 
02? 
022 
022 
02? 
022 
022 
022 



GMENT 
91250 
91500 
91750 
92000 
92250 
92500 
92750 
93000 
93250 
93500 
93750 
94000 
94250 
94500 
94750 
95000 
95250 
95500 
95750 
96000 
96250 
96500 
3 LON 
96510 
96520 
96530 
GMENT 
96540 
96550 
96560 
96570 
96580 
96590 
96610 
7 LON 
96750 
97000 
97250 
97500 
97750 
98000 
98250 
98500 
fiMFNT 
01500 
01510 
GMENT 
01750 
02000 
02010 
020?0 
02030 
02040 
02050 
02060 
02070 



****** 



T 
T 
T 
T 

r 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
G» 
C 

c 

c 



001 
001 
OOl 
001 
001 
001 
001 
001 
001 
001 
001 
001 
OOl 
001 
001 
001 
001 
001 
001 
001 
001 
OOl 
NEXT 
000 
000 
000 



****** 



OOl 
001 
001 
001 
001 
001 
001 
NEXT 
000 
000 
000 
000 
000 
000 
000 

000 

****** 

T OOl 
C OOl 
****** 



c 
c 
c 
c 
c 
c 
c 

G. 
T 
T 
T 
T 
T 
T 
T 
T 



P 
P 
C 
C 

c 
c 
c 
c 
c 



001 
001 
OOl 
001 
001 
001 
001 
001 
001 



**** 

0:0000 

050006 
050007 
050008 
050009 
050010 

0J0011 

J 00 12 
0:0014 
OJ0015 
0J0015 
OJOO16 
050023 
050025 
050027 
0:0028 
050045 
0:0045 
050046 
050062 
050062 
050062 

SEG 
350239 
350239 
350239 
**** 
150000 
150000 
150002 
150002 

H0002 

150004 

1 50016 
SEG 

350239 

350239 

350239 

3;0239 

350239 

350239 

350239 

3»0239 

**** 

250000 

250000 

**** 

350000 
350005 
350007 
3:0007 
350008 
3:0010 
3:0012 
3:0014 
350016 



10 





3 



3 



2 



1 

3 

3 



2 

3 

3 



2 

3 









3 
2 
2 
2 

11 




1 
1 

1 



3 
2 
2 
2 
2 
2 
2 
2 
2 

12 



13 

2 
2 
3 


1 
1 







C 
r 

C 



c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

r 



u 



endreadtape: 



o 

O 
O 

o 

P 

a 

lo 

'> 

n 

: -o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



End readtape; 



X105' 



PROCEDURE SEOCoMPARECTl.CR.ClCR. LIB)} VALUE LIB? BOOLEAN LIB; 

REAL TLCR. CLCR ; 



13 IS 



BFGIN 

MfoiuM 
if gtI 

R 
L 
M 
E 
EI..SE B 
I 



:="r. 



x 



la 



sw 

IF 

USETHE 

DO 

GO 

MO 

LA 
NC 
GO 

FIRSTT 
RE 
FC 
ME 
IF 
PU 
CA 
TU 
GO 

COMMEN 

CARDON 
RE 
LC 

CArDLA 
RE 
CL 
GO 

F 0pj 

DF 
DF 
CL 
PU 



L 
L 
E 

FNn Of 
BfL caRdo 

EOF. 

COMPA 

ITCH USES 

ERRORCqU 

SWITCH: 

LLaR?tOG: 

tO USESW 

VfCI.JNfO 

dffine 
stusfd '= 

R *= LCR- 

to xtt; 
imei 

adccard.i 
r:=nCr:=( 
D i U m » - " C 

EXAMlNCF 
TSEQNOCIN 
RONUMBER! 

rnonstopl 

X IT ; 

T WE HAV 
LY» 

AOCCARD.l 
R »= MKA9 
ST: 

AD(CArD»1 

Cp := MKa 

r0MP A R; 

FtNfaRRAY 

ftNfaPRay 
crj=mkabs 

TSEONOfDE 



!=C0MP A RF 
FGIN 

CRfsTLCRl 

EDIUMS=»T 

ND 

EG IN 

F GTi * 1 
BEGIN 
MEDIU 
READT 
END; 

CR:-CLCR; 

ASTUSEDt= 

nd; 
SEQfOMPft 

MLY> CARD 
USETMESW1 
R» TESTVO 

wi tch j=ca 

nT>errmax 

=faLsf? 
itchclast 
[lastused 
aRRaycdef 
lastused 
H 



O.CBUFFf* 

LCRJsMKAB 

"I 

CR)#"$" A 

FOCLASTSE 

sCONVdNF 

IGHTC"*". 



CARD RFADER* 
CTLcR.CLc«)=0 THEN % TAPE HAS LOw SEQUfNcF NuM B 

LASTIJSfD5 = 3J 

'»; % tape input. 



then % tape and card have same seq 

M!s"p "; % CARD PATCHES TAPE, 

ape; 



2; 

Re; 

last. tapeLast. exit, firsttime. 

TCH» 

ID, X|Tj 

RDoNLY.CARD Li AST» TAPELAST .FIRSTTIME; 

then err(6U); % err limit exceeded - stop, 



USFD3; 

.LiNKR, LASTUSED. UlNKc] 

INEIN()EX-2])I 

+ i; 



J); 

S(CBUfF[9]))-9; 



ND LISTER THEN PRINTCARD; 
QROW»lASTSEqUENCE].LCR)J 
OCLASTSEQROW.LASTSEqUENCE-I 1.5.8); 
LCR); 



X108- 



e Just initialized card input; 

0»CBUFF[*I ); 
SfCBUFF[93); Go EXIT; 

O'CBUFFU] )[E0FI ; 
BSCCBUFFC9]); 



t25]!=«Nn;ENo,"&"F M riM3:5]; 
r 34] J=»9999"&»9999»n 5 25523]; 
CDEFTNEARRAyr34]); 
FINEARRAY[33].CLcR-8)» 











C 


02202080 


C 


0013S0017I 


3 




02202250 


T 


0013J0018* 





/ 


24 LONG. 


NEXT SEG 


12 


L, 


02202500 


T 


001250000 







02202750 


T 


001280000! 





^ 


02203000 


T 


001250000 





U 


02203250 


T 


0012:00001 







02203500 


T 


0012J0000I 


1 


C 


02203750 


T 


001250003 


2 


02204000 


T 


001250003 


3 




02204250 


T 


001250005 


2 




02204500 


T 


001250006 





c 


02204750 


T 


001250006 







02205000 


T 


001250009! 


2 


S-, 


02205250 


T 


001250009 


3 


c 


02205500 


T 


00l2»00l0< 







02208500 


T 


0012S0011! 


2 


„, 


02208750 


T 


0012J0011! 


3 


L. 


02209000 


T 


001250011! 


3 




02209250 


T 


001250012! 





r •*"**• 


02209500 


T 


001250013! 


2 


I 


02209750 


T 


001250013! 


2 




02210000 


T 


001250015! 


2 


^_^^ 


02210250 


T 


0012J0015! 


2 


( w 


02210500 


T 


0012*0015 5 


2 




02210750 


T 


0012500J5 


2 


, 


0221 1500 


T 


0012500201 





U 


02211750 


T 


0012:00231 


2 




02211800 


T 


0012:00231 


2 




02212000 


T 


001250023 


3 


c 


02212250 


T 


0012:0025! 


3 




02212500 


T 


001250028! 


1 




02212750 


T 


001250029! 


3 


c 


02213000 


T 


001250031 1 


2 




02?13250 


T 


00l2 ! Q032i 







02213500 


T 


001250032! 


1 


c 


02213750 


T 


001250033 


2 




02214000 


T 


001250037' 


2 


S~*\ 


02214100 


T 


001250040 


1 


L 


02214200 


T 


001250041 


3 




02214250 


T 


0012:0061 


2 




02214260 


C 


0012:0063) 


2 


c 


02214500 


T 


0012:0067 


2 




02214750 


T 


0012:0068! 





c 


02215000 


T 


0012:0068s 


1 


02215250 


T 


0012:0068 


.1 




02215500 


T 


0012:00691 


2 


c 


02215750 


T 


001250073! 


2 


02216000 


T 


001250075! 


3 




02216250 


T 


001250076! 





■•— V 


02216500 


T 


0012 ; 0081 J 


2 


L, 


02216750 


T 


0012:0083! 


2 • 




02217000 


T 


0012:0083) 


3 


^ 


02217250 


T 


0012:00841 





c 


02217500 


T 


001250086! 







02217750 


T 


0012S0088! 


1 




02218000 


T 


001250090 


1 


u 



o 



I I 



u 

O 
O 

o 
to 

c 
u_ 

jo 
■ : o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



TURN0NST0PLjGHTf"X",CLCH-8> J 

% 

go compar; 

COMMENT THIS RELEASES THE PREVIOUS CARD FROM CARD READER AND 

SETS Up CLCRJ 
TAPEUSTl 

READTAPEJ 
COMMENT THIS RFbEASES THE PRfVIOUS CA«D FROM TAPE AND SETS UP tLCRi 
cOMPaR: 
.. SEQrOMP A RFfTLcR»CLcR»FAl-SF); 

FXIT5 

N C R := fcR»= LrR " 9? 
COMMENT SETS UP NCR AND FCRJ 

IF rXAMlNCFCR)5" , S , » THEN % S-CARDS D0N"T COUNT, 

if comparecmkabs(info[Lastseqrow,lastsequencfj )>lcR)=j then 

BEGIN 

FLAG(6lO)l % SEQUENCE ErROR, 

SEOUENCEERRORCLIN)j 

end; 
if lastusfd=3 thf^ 

RFGlN 
. TF VOinTAPF the n rO uSFTHESWfTCH* 
TF VOlDTCRjtO ThEN 

if compareclcr,voidTcR)-o then go usetheswitch; 

END? 
IF EXAMINCFCR^'S" then 
BFGIN 

IF LlSTPToG OR PR I NTDOLLARTOG THEN PRINTCARD; 
NCR:=NCR+32768j DOLLaRCARD; 

comment dont Forget that ncr is not word mode* but char* mode pointer; 
. go usetheswitch; 
end; 
if fxaMjncfcR)=" " then 

f F D0ULAR2T0r I {=FXAMlN(FcR + 32768) = , '£" THEN 
BFGIN 

outputsource; 

ncruncr + 65536; % scan past " *" (character mode), 

dollarcard; 

end; 
if voiding then go usethesw j tch j 
if voidcr^o then 

if c0mpareclcr»v0idcr)>0 then v0 idcr i =vo i dpuce s =0 

Ft-SE GO USETHESWITCH; 
IF VOIDTAPE THFN 60 lESTVOIn; 
IF vOif)TCR*0 THFN 

TF COMPAREfLCR»VQTDTcR)>0 THEN VOI DTcR I = V0l DTPLACE 5 =0 ELSE 
TESTVOIDJ IF LASTUSED=3 THEN GO USeTHESW I TCH; 

cardCoUnT;=cardcoUnT+ij 

IF-D0LLAR2T G THEN GO USETHESWITCH? 
PUTsEQN0ClNF0tLASTSEQR0W#LASTSEoUENCE3»LCR); 

cardnumber:=if seotog then totalno+addvalue else 

C0NV(lNFotLASTSEoROW»LASTSEoUENCE-13»5»8)l 
OUTpUTSOURCF; 

if omitting thfn go usetheswitch; 



% 
XIT: 



TURNONsTOPLlfiHT< M X'M'CR)J 





02?18?50 


T 


00121 


0092» 







0221 8400 


T 


0012* 


0093' 


3 




02218500 


T 


0012' 


00938 


3 




02218750 


T 


00121 


0097J 


2 




02219000 


T 


00121 


0097! 


2 




02219250 


T 


0012i 


00971 


2 




02219500 


T 


0012; 


00978 


2 


• 


02219750 


T 


00121 


0097) 


3 




02224250 


T 


0012! 


0097! 


3 




02224500 


T 


0012! 


0098! 







02225000 


T 


0012! 


0099! 


2 




02225250 


T 


0012! 


0100! 







02225500 


T 


0012! 


0101! 


3 




02225750 


T 


0012! 


oion 


3 




02226000 


T 


0012! 


0103! 


3 




02226250 


T 


0012! 


0108! 







02226500 


T 


0012! 


0108! 


1 




02226750 


T 


0012! 


01091 


2 




02227000 


T 


0012 


OHOi 







02228050 


T 


0012! 


OHO! 







02228075 


T 


0012 


OllU 


2 




02228100 


T 


0012 


0111! 


3 




02228125 


T 


0012 


0ll3> 


2 




02228150 


T 


0012' 


01131 


3 




02228175 


T 


0012 


,0116 


1 




02228250 


T 


0012 


0116 


1 




02228500 


T 


0012 


10118 


1 




02228750 


T 


0012 


I0U9 


2 




02229000 


T 


0012 


(0136 


1 


ter; 


02229250 


T 


0012 


0138* 







02229500 


T 


0012 


10138 


to 




02229750 


T 


0012 


101401 







02230000 


T 


0012 


(0140 


!0 




02230100 


T 


0012 


10141 


S3 




02230250 


T 


0012 


10145 


.2 




02230500 


T 


0012 


J0145 


!3 




02230750 


T 


0012 


!0l46 


10 




02231000 


T 


0012 


50147 


!2 




02231250 


T 


0012 


50147 


53 




02231500 


T 


0012 


80147 


13 




02231750 


T 


0012 


50149 


!2 




02232000 


T 


0012 


50150 


80 




02232250 


T 


0012 


50153 


;2 




02232500 


T 


0012 


* 015^ 


10 




02233000 


T 


0012 


50155 


53 




02233500 


T 


0012 


50156 


51 




02234000 


T 


0012 


J0160 


'1 




02234500 


T 


0012 


50165 


52 




02234600 


T 


0012 


50166 


51 




02234750 


T 


0012 


J0167 


S3 


*108- 


02234800 


C 


0012 


50169 


53 


X108- 


02234900 


C 


0012 


S0172 


80 




02235000 


T 


0012 


50175 


83 




02235250 


T 


0012 


;0176 


SO 




02235500 


T 


0012 


50177 


:3 




02235750 


T 


0012 


50177 


83 




02237750 


T 


0012 


50178 


81 



o 
c 
c 
c 
c 
c 

<*> 

•■"*"■ 



I 



c 
c 
c 
c 
c 
c 
c 



c 



L 



^ 



o 

o 
o 
o 

1° 

£ o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



end readacard; 

real procedure convert; 

. . begin real t; integer nj 

Tlo*o; THI* 

T* CONVf ACCUM[U,TC0UNT»N«-(C0UNT , "TC0UNT)M0D fl)J 
FOR N* TCOUNT+N STEP 8 UNTIL COUNT- 1 DO 

IF DPTOG THEN 

BFGIN 

nOUBLrCTHI'TLO, iOOOOOOOO,0,0 »x,cONV( AC CUM[1 3 ,N, 8), 0,+,*, 
THI»TL0); 

t-tht; 

END ELSE 

U TX100000000+ C0NV(ACCUMrU»N»8) i 
C0NVERUT5 

end; 
real stream procedure fetchcf); value fj 

BEGjN Si:=F> Si:=SI-8j DP=L0c FETCH} 0Sl=WDS END FETCH; 
PROCEDURE ntlMPlNFO? 

begtN 

array Aro:i4]; tNtfgeR jeden.dwa; 

STRfAm PROCEDURE OCT ALWORDSf S» D, N ) J VALUE N* 

BEGIN 

Sls=S; DIicDj 

N(?(8fDSj=3 RESETj 3(lF SB THEN DS:«1 SET ELSE 

Ds; s l RESET; SKIP 1 Sr)); DS:=1 LIT " ");DS:~2 LIT" "); 
END OF OCTaLWORDS) 
STRFAM PROCEDURE ALPHAWORnS(S»D»N); VAtUE n; 
BEGIN 

stsss; diisdj 

Nf2(4cnS»Bi LjT" «; dS; = 1 chR)' DSssi LIT" "); DS:=;2 LtT" «>i 
end of alphawords; 
if noheading Then daTime;wRitE(linecdbl3»<//' , elbat«>); 

for jedems=o step 6 Until 71 Do 

BFGIN 

BLANKET(H.A); OCTALWOrDSCELBATC JEDEN3»A»6); 
WRITECLINE[DBL3'15'A[*]); 
END; 
bLanKetcii»a); octaLwords(ELbat[72]»a»^); 

WRlTECL!NEfDBU]»15»A[*]); 

FOR JFDEN5-0 STEP 1 UNTIL NeXTINFO DIV 256 DO 

BFGIN 

WRlTEaiNECOBUf <//"|NfO["# I 2* " > *3 ">» JEDEN ) ; 

for dwa:=o step 6 until 251 Do 

BEGIN 

BLANKETCH'A); ALpHA WORDS C I NFot JEDEN »DWA 3 » A ,6 ) ; 

WRlTE(LINE'l5»A[*3); 

BLaNKfT(H'A); OGTAUWORDSC INF0CJeDEN»DWa3» A* 6)} 

WRITF(LiNf[drL3,15»A[*3); 

fnd; 

BLANKET CI 4, A); ALPhAWORdS ( T NfO[ JEDFN, 252 3 , A, 4 ) ; 
WRlTEfLlNE.l5,A[*]); 



02238000 T 
12 IS 183 LONG* 



02248000 

02249000 

START OF SEGMENT 

02250000 



14 IS 



02262000 
02263000 
02264000 
02264050 
02264100 
START OF SEGMENT 
02264400 



02251000 
02252000 
02253000 
02254000 
02255000 
02256000 
02257000 
02258000 
022S9000 
02260000 
02261000 
28 LONG, 
T 
T 
T 
T 
T 



16 IS 



02264450 
02264500 
02264550 
02264600 
02264650 
02264700 
02264750 
02264800 
02264850 
02264900 
02264950 
6 LONG, 



022*5000 
02265050 
02265100 
02265150 
02265200 
02265250 
02265300 
02265350 
02265400 
02265450 



17 IS 



8 LONG, 



02265500 
02265550 
02265600 
02265650 
02265700 
02265750 
02265800 
02265850 
02265900 



0012 
NEXT 
0003 

0003 

****** 

0014 
0014 
0014 
0014 
0014 
0014 
0014 
0014 
0014 
0014 
0014 
0014 
NEXT 
0003 
0003 
0003 
0003 
0003 
****** 

0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
NEXT 

0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
NEXT 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 



8 



14 







;oi79;2 

SEG 

80239 

J0239 

*** 

50000 

:0000 

10005 

JOOlO 

J0010 

10010 

»00i5 

JOO16 

JOO16 

?00l6 

'0024 

10024 

SEG 

»0239 

5 0239 

50242 

80242 

80242 

*** 

*00Q1 

10001 

!0003 

10003 

50006 

S0009 

;ooo9 

80009 

JOOlO 

SOOiO 

t 0014 

10014 

SEG 

J0019 

80020 

80020 

80023 

80027 

80029 

80032 

50036 

80041 

50041 

SEG 

8OO4 

1004 

5004 

8005 

8005 

8006 

8006 

8006 



2 

2 







15 

3 

3 

2 

3 

1 

2 

2 

2 



1 

1 

1 

15 

2 





2 

2 

3 

1 
1 
2 
2 

15 

2 
2 

1 
2 

1 
2 
2 



L 
C 

C 

c 
c 

c 

r 



8007182 



c 
c 
c 
c 
c 
c 
c 
c 



c 



o 
o 



^ 



(J i 



( ) 



'U 



END 



B|..ANKET(ia»A); OCTALWORDS ( i NFO [ JEDENt ?52] » A , 4 ) ; 
WRlTE<LlNErDBUM5»Ac*]) J 

end ; 
of dumpinfo; 



O 

■-o 

to 



; o 



u 



o 



o 



o 



o 
o 
o 



u 



u 



1 ! 



o 



DEFINE SKAN = BEGIN 

COUNT := RESULT :=aC CUM [13 8=0; 

scannfRj 
0:=ArrUMEl3; 

END t\ 

commfnt dollaRcaRo handles thf compiler control caRds, 

ALL COMPILER- AND USeR-DEfjNED OPTjONS ARE KEPT 

in the array "options", 

each option has a two-word entry: 

word contains 

1 ENTRY FROM ACCUMCU: ooxzzzz, where 
x is the size of the id and 

ZZZ7Z IS THF FIRST FIVE CHARS Op THE TD. 

2 PUSm-oOWN, 4f-BlT STACK cONTAlNjN G THF 
HISTORY Or THE SFTTjNGS OF THIS OPTION. 

IN "FJNDOPI ION"' ALL COMP I i.ER-DEF I NED OPTIONS ARE USUALLY 

LOCATED BASED UPON A UNIQUE NUMBER ASSIGNED To EACH, 

FOR ALL USER-DEFINED OpTIOwS* A SEQUENTIAL TABLE SEARCH IS 

INITIATED USING "USErOPINX" AS THE INITIAL INDEX InTQ THE 

"OPTIONS" ARRAY, IF THE NUMBER OF COMPILER-DEFINED OPTIONS 

IS CHANGED* THEN "USEROPlNX" MUST BE ACCORDINGLY CHANGFDf 

THF NUMBER OF USER DEFINED OPTIONS ALLOWED CAN BE 

CHANGED BY CHANGING THF DEFINE "OPaRSUE". 

THE VARlARLE "OPT I ONwORD" CONTAINS THE CURRENT TRUE 

sftting of all of thf compjler-definfd OPTIONS* ONp 

OPTION, 



15 IS 



02265950 T 
02266000 T 
02266050 T 
02266100 T 
88 LONG, 



OR FALSE 
BIT PER 



BOOLEAN PROCFDURE 
BEGIN 
LABFL FOUnD; 



FlNDOPTlON(BIT)* VALUE BIT? INTEGER BIT. 



REAL ID? 
0PINXj=2xbIt-4j 

WHILF TD:=0PTl0NS[OPlNxs=OPlNX+2l/0 DO 
IF ©=ID ThfN 60 FOUNnJ 

0PTtONsroPiNX]s 5 0? % New uSfR-dffined option, 

FOUND? ?1 03 

IF OPINX +1>0PARSIZE THEN FLAGf60?) ELSE % TOO MANY USER OPTIONS 
FInD0PTI0N 5 =B00(.EAn(0PTI0nS[0PInX + 1 ]>j 

End findopTion; 
procedure dollarcard; 

BEGIN 

STRFAM PROCFDURE RES TOrESeQNUM ( LCR > I NFO ) } VaLUE LCR5 

RFGIN 

nis=LcR; S I : = 1 NFO ; OSI=WDS| 

fNd; 

PROrFDURE SWITCHIT(XBIT); VftLUf XRIT; INTFGFR XBITj 



02277000 T 
02278000 T 
02279000 T 
02280000 T 
02281000 T 
02282000 T 
02283000 T 
02284000 T 
02285000 T 
02286000 T 
02287000 T 
02288000 T 
02289000 T 
02290000 T 
02291000 T 
02292000 T 
02293000 T 
02294000 T 
02295000 T 
02296000 T 
02297000 T 
02298000 T 
02299000 T 
02300000 T 
02301000 T 
02302000 T 
02303000 T 
02304000 T 
02305000 T 
02306000 T 
02307000 T 
02308000 T 
02309000 T 

START OF SEGMENT ** 
02310000 T 
02311000 T 
02312000 T 
02313000 T 
02314000 T 
02315000 P 
02316000 P 
02317000 T 
02318000 T 
18 IS 15 LONG, 
02319000 T 
02320000 T 
02320200 T 

START OF SFGMENT ** 
02320400 T 
02320600 T 
02320800 T 
02321000 T 



0015*0075*2 
0015*0079*2 
0015*0083*2 
0015*008353 
NEXT SEG 3 
000310242*0 
0003:0242:0 
000310242JO 
0003:024250 
0003:0242*0 
0003:0242:0 
00035024250 
00035024250 
000350242*0 
000350?4250 
000350242*0 
000350242:0 
0003:0242:0 
000350242:0 
0003:024250 
000350242*0 
000350242*0 
0003*0242*0 
00035024250 
000350242:0 
OOO35O24250 
O0O35O24250 
0003:0242*0 
00035024250 
0003:0242:0 
0003:0242:0 
0003:024250 
0003:0242*0 
0003:0242*0 
000350242*0 
0003*0242*0 
0003*024250 
00035024250 

******** 1Q 

00185000050 
0018:0000:0 
0018:000153 
00181000552 
00185000651 
00185000850 
00185000850 
0018*001051 

001850012*1 
NEXT SEG 3 
0003:0242:0 
0003*024250 
0003:0242:0 
******** 19 

00195000080 
00195000080 . 
001980000: 1 
0019:000152 



r- 

c 
c 

c 



c 
c 
c 



/-•> 
o 



c 
o 
o 
o 
o 
o 
o 
o 
o 



o 



BFGIN 
BOOLEAN 



u 

O 
P 



jo 

X) 

o 
o 
o 
o 
o 
o 
o 



o 

o 

o 

o 



xmodfo: 



xmodfi 



XM0DE2S 



XM0DE3 



XMODE4 
ALONG! 



IN 
LA 
SW 

5E 
GO 
% 
OP 

fO 

XM 

% 

OP 

IF 

GO 

% 

OP 

IF 

GO 

% 

SA 

B! 

OP 

IF 

GO 

?! 

OP 

IF 



TFGER 

BEL XM 
ITCH S 

TTINGI 
SWfXM 

FIRST 
TTONwO 
R SAVF 

0DE«sL 
MOT VI 

TlONSf 

XBIT< 

ALONG 

RESET, 

TIONSC 

XBIT< 

ALONG 

SET. 

VFI N X: 

= IF Q = 

TlONSf 

XBTT< 

along 

POP, 
TIONSC 

XBIT< 



B,T? 

saveinx; 

0de0»xm0dej , xm0de2, xmode3, xmodez* , along ; 

WjsXM0DE0»XM0DFi»XM0DE2»XM0DE3»XM0DE4| 

= F I ND0P7 I ONf XBI T) ; SKaNj 

Orf+IJ; 

OPTION ON CARD* BUT NOT SET* RESET* OR POP, 

Rn»»BOOLf aN(0); 

I NX * = 1 STeP ? UNTjL OPARSiZE D« OPT iONS[ S AVE JNX ] 8 =05 

ASTUSED'=l> % CARD INPUT ONLY. 

RST OPTION AND NOT BEING SET, RESET, OR POPPED, 

OPIMX+j JlsHtALcTRUE), 

USEROPINX THEN OPTIONWOROIbOPTIONWORD & TRUECXBIT813J 



0PINX+13J=REALCFALSE & SETTINGtl !2!«6])! 

USFROPlNX THfN OPTjONwORdJ=0Pti0Nw0R0 & FALSECXBITU]; 



=0PJNX; % REMFM8ER OPTION WE flRF SETTING, 

"1=0000" THEN BOOLrXP ELSE TRUE; 

SAVEINX+I] J=REAL(B & SETTINGC [i16])i 

USEROPINX THFN OPTiONWORDIbOPTIONWORD & B [XBlT:n; 



OPINX + I] j brEaLCB INSETTING. tlU6]j; 

USEROPINX THEN OPT I ONWORD : =0PT I ONWORD & B CXBI T : 1 3 J 



END SWITCH JT; 



LABFL ex 
LF 
WH 
CA 
■CH 



SWIT< 

INT F 
ALPh 
DOLL 
MOVr 
SCOn 
XMO n 
PUTS 
TURN 

SKANArAt 
SkAn 

AGAIN! 

GO n 

LENGTH1, 
IF Q 
IF 

.IF 

GO W 

LENGTH?! 



GER 

A VO 

ARTO 

(10* 

Nti« 

F«bO 

(rQNO 

ONST 
n: 

t 



IT, AG A I 
NGTH5,L 
A T I S I T • 
RDOPTIO 

ptionle 

SRESULT 

IDRANGE 
GJBjRup- 

ACCllMCO 
COUNT » 

9 

C iNpOfL 

opltght 



n» sk an aga i n»length1, lengths, length 3, lengths, 
e:ngth6,length7»lengthb,length9, 

n,meRgeoptiOn; 

ngth:=lengthi,wh ati si t,length3,length4, lengths, 
length 6 » length/* whati sit, length 9, wh ati sit? 

,SC0UNT; 



3»DEFINfaRRAYC0])J % SaVf INFORMATION FOR 

rResul.t,=RfsuLt; % "tarLf" to Resume scan, 

astsfQRow,lastsequence],lcR)* 
frsLcR); 



02322000 T 

02323000 T 

START OF SEGMENT * 

02324000 T 

023P5000 T 

02326000 T 

02327000 T 

0232B000 T 

02329000 T 

02330000 T 

02331000 T 

02332000 T 

02333000 T 

02334000 T 

02335000 T 

02336000 T 

02337000 T 

02338000 T 

02339000 T 

02340000 T 

02341000 T 

02342000 T 

02343000 T 

02352000 T 

02353000 T 

02354000 T 

02355000 T 

02356000 T 

02357000 T 

02358000 T 

02359000 T 
20 IS 59 LONG, 



ptionlengtheminc count, io)3 j 
= "i3!oooo" then go exIt; 

= "UOOOO" THE"N 



BFGlN sWlTCHIT(PRTNTr)OLLARBlT>; GO AGAIN END? 
s "1,0000" THEN GO SKANAGAjN; 
HATiSjT; 
% NO OPTIONS OF THIS LENGTH ARE CURRENTLY IMPLEMENTED. 



02360000 
02361000 
02362000 
02363000 
02364000 
02365000 
02365100 
02365200 
02366000 
02366100 
02366200 
02367000 
02368000 
02369000 
02370000 
02371000 
02372000 
02373000 
02374000 
02375000 
02376000 
02377000 
02378000 
02379000 
02380000 



0019 

0019 

****** 

0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
00?0 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
00?0 
0020 
0020 
0020 
0020 
0020 
NEXT 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 



5000182 



10001 

*** 

50000 

50000 

50000 

10005 

80011 

10013 

10014 

10014 

«00l9 

50020 

?0021 

50022 

50026 

10027 

50028 

50030 

50034 

50035 

50036 

50036 

50039 

50042 

50046 

50048 

50048 

50051 

50055 

50056 

SEG 

50001 

50001 

50001 

50001 

50001 

50003 

50009 

50009 

50009 

50010 

50012 

50014 

50014 

50016 

50017 

«00i8 

'0021 

50022 

50026 

50027 

50028 

50029 

50033 

50034 

50036 



2 

20 







3 

2 

3 



1 

3 

1 

2 

1 

1 

2 



1 

1 

2 



1 

3 

1 

1 





2 

2 



19 

2 

2 

2 

2 

2 

3 

2 

2 

2 

1 

1 



1 

1 

3 



3 





2 



2 

2 







C 

c 
c 

c 
c 
c 
c 



c 



c 
o 
o 
o 
o 
o 
o 
o 
o 

c 



u 



u 

o 



o 
to 

> 

to 

LL 

to 

:.: 

to 
o 



o 



o 
o 
o 
o 
o 



o 



o 

o 
o 

o 



I.ENGTH3S 
IF Q 



IF 
IF 







Q 



IF ft 



IF o 



IF 



GO 

length^ 
if o 



= "3SF 
RFGIN 
= "3P0 
BFGIN 
= "3NE 
RFGIN 
SWITCH 
IF Q = 
GO AGA 

end; 

~ "3SE 
BEGIN 

= "3PR 
BEGIN 

= "3MC 

RFGIN 
WHATISIT 



TOO" THEN 
XM00F.I = 3J 

poo" then 
xmode * =<! * ; 

WOO" THEN 



GO SkAnAGAi 
GO SkAnAGAT 



N END; 
N END; 



IT(NFWBIT)) 

h 4taPfO m THFN 
IN; 



GO SKaNagAIN; 







QOO" THEN 

SWITCHIT(SEQBIT); GO 
TOO" THEN 

SWITCHIT(PRTBIT); Go 
POO" THEN 
SWITCHITCMCPBIT); GO 



AGAIN END; 
AGAIN END J 
AGAIN END; 



iT(LlSTBlT); 

in; 



IF 



= "4LIST0" THEN 
BFGlN 

SWITCH 
GO AGA 

end; 

= "/ivoiDO" then 

BFGIN 
IF XMO 

B 

G 

I 



IF o 



M 

G 

E 

SWITCH 

GO AQA 

end; 

d »4XR 
DEFlNl 



DE = 
EGI 
ETV 
F V 
IF 
OVE 
E 

nd; 

?T( 

in; 



then 



ojdcvoidrange.ncr, 

0IDCR=0 THEN VOlDC 
COMPaHECMKaBSCVOI 

ci»voidrangf»voidp 
XjT; 

VOIDBlT); 



LCR» lNFo[LASTSEQROW»UASTSEQUENCE]); 
R?=MKABSCVOlDPLACE) ELSE 
DRANGE)»V0IDCR)*1 THEN GO TO EXIT? 
LACE); 



IF o = "4BF 
IF Q = "40M 
RFGIN 
S 
IF 8b "4cA 
BEGIN 
Q!="«T 
SWITCH 
IF X H0 
OPTION 
REAL 
IF MER 
CARDOPTION: 

LASTUS 
GO AGA 

eno; 

IF = "4TA 



EFO" THEN BEGIN SWITc 

NG js: boolEan(rEalcde 

GO AGA I 
NDO" THEN BEGIN SWITC 
I TO" THEN 
IF NOT dOLLaRZtOg THf 

witchitcomijbit); go 
RdO" then 



HITCXREFBIT); IF BOOLEAn(XmoDE) then 
FlNlNG)&in U7*1J)» 35108- 

N end; 3S108- 

HITCBENDBIT5; GO AGAIN END; X108- 

N BEGIN PRINTCARD; FLaG(605); pNl)J 
AGAIN END; 



APEO"; x fake out switchit • 

IT(mERGEBIT); 

D£*9 THEN MERGEToG:= M 

SC2xMFRGEBlT-n J = 
(SETTING & (MERGETOG) 

GETqG THEN GO MErGEOP 

ED:=i; 
IN; 

peO" then 



ot mergetog; 

% card is 
c47sh); % inverse of merge* 
tion; 



02381 
02382 
02383 
02384 
02385 
02386 
02387 
02388 
02389 
02390 
02391 
02392 
02393 
02394 
02395 
02396 
02397 
02398 
02399 
02400 
02401 
02402 
02404 
02405 
02406 
02407 
02408 
02409 
02410 
02410 
02411 
02412 
02413 
02414 
02415 
02418 
02419 
02419 
02419 
02419 
02419 
02420 
02421 
02421 
02422 
02423 
024?4 
02425 
024P5 
02426 
02427 
02428 
02429 
02430 
02431 
02432 
02433 



000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
500 
000 
000 
000 
000 
000 
000 
000 
100 
110 
120 
200 
000 
000 
100 
000 
000 
000 
000 
500 
000 
000 
000 
000 
000 
000 
000 
000 



T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
C 
C 
C 

c 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 



OOi 


19 


0036J 


00 


19 


0036! 


001 


19 


10036! 


00 


19 


100405 


00 


19 


0040! 


00! 


19 


00441 


00 


19 


0044! 


00! 


19 


0045! 


00 


19 


0046J 


00 


L9 


10047! 


00 


19 


10050! 


00 


19 


10050! 


00 


19 


0050! 


00 


19 


10054! 


00 


19 


S0054! 


00 


19 


0058! 


001 


19 


0058! 


00 


L9 


10062! 


00 


19 


(0062! 


00 


19 


0063! 


00! 


[9 


0063! 


00] 


19 


0064! 


00 


[9 


S0065! 


00] 


19 


0067! 


00 


19 


10067! 


001 


19 


0067! 


00' 


19 


10068! 


00. 


19 


S00691 


00! 


19 


0069! 


001 


L9 


0072! 


00 


19 


0075J 


001 


19 


0080! 


00! 


19 


0081! 


00 


19 


10082' 


00 


19 


.0082! 


00 


19 


10083! 


00] 


19 


0083! 


00! 


19 


0083! 


00! 


19 


100851 


00 


19 


0088! 


001 


L91 


0090! 


00 


19 


0094: 


00! 


19 


0094! 


00! 


19 


0114! 


00' 


19 


•0H5! 


00] 


[9 


0U6! 


00] 


19 


101161 


00! 


19 


0117! 


001 


19 


0118! 


00] 


L9 


0121! 


001 


19 


01231 


001 


19 


01255 


00 


19 


0127! 


00! 


19 


0127! 


001 


19 


0127! 


00! 


19 


0131! 


001 


19 


0131! 



c 
c 
c 
c 
c 



c 



c 



c 
c 

c 
c 

c 
c 
c 
c 
c 

c 



u 



O 
O 

o 
o 

> 
E 

|o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



BFGIN 
SWITCHIT(HERGEBIT); 

IF NOT MERGETOG THEN Go CARDOPTlONJ 
MErGEOPTION! 

LASTUSED?=2; % NEXT CARD IS READ FROM READER, 
IF MA*TLCR=0 THEN 
BEGIN 

integer stream procedure fejcf»t); value t; 

RFGIN 

siisf! ni tstoc Tj ds;=wds; 

SI : =T; SI : =S I » 16 ; DI—LOC FEJ? DS*=WDS? 
END FEJJ 
STREAM PROCEDURf FJXCF»T)* VALUE T* 
BFGIN 

SM-FJ SI ;=S 1-24 ? OI?=LOc T* DS*=WDS* 
DM-TJ DI s=DI+ i »7 j SKIP 4 D8J DS*=2 RESET; 
2<DI : -D I +48) j DS:=8 L I t"00#01+0#" ; 
fNd FIX; 

IF gtij=fe j <taPf»o)=io then 

BEGIN 

rewindctapf) i fix(Tape»Q); 

end; 
maxtlcr!=gtl+tlcrt=9+mkabs(tbuff[0j)j 
read(tape»lo»tbuff[*])j % initialize tape input, 

LASTUSEDJ=?i 

End; 

GO AGAIN; 

end; 

IF o = "4PAGE0" THEN 
BFGIN 

if lister then wr i tec l i necpageh j 

go skanagain? 

end; 

IF Q s "4INF00" THEN 

BEGIN DUMPJNFO; GO SKANAGAlN END; 
IF Q a "4SFGSO" THEN 

BFGIN SWITCHIT(SESSBIT); GO AGAIN F^D? 
IF Q " "4NEST0" THEN 

RFGIN SWITCHIT(NeSTBtT); GO AGAIN fNd; 
IF q = »4 D FCK0» THFN 

pfgtn switchitcdecKbtT); go again fNd; 
fi o whatjStT; 

LeNrTh5: 

IF « "5RESET" THEN 

BEGIN XM00F'=2» GO SkAnAGAiN END? 

if o r «5LisTp« then 

BFGI N SWITCHIT(LISTPBIT); Go AGAlNJ EnD; 
IF o = "5V0IDT" THEN 
BEGIN 
. . . IF XMODE = THEN 
BEGIN 

GFTVO IDC VOI DRANGF* NCR »LCR* INFO tLASTSEQROW#LASTSEQUENCF]); 
IF V0IDTCR=0 THFN VO J oTcR ! = MK ABS C VO I DTPLACE ) ELSE 

IF C0MPARECMKABSCV0IDRANGE)»V0IDTCR)*1 THEN GO TO EXIT; 
MOVEC J»VOIDRaNGf»VOIDTPLACE) J 



START OF 



21 IS 











c 


02434000 


T 


001910131 


3 


- 


02435000 


T 


0019J0132 


10 


,,-, 


02436000 


T 


0019*0133 


12 


( 


02437000 


T 


0019*0134 


10 




02438000 


T 


0019*0135 


2 


/-"• 


02439000 


T 


0019*0135 


3 


1 


02440000 


T 


0019*0136 


11 




02441000 


T 


0019*0137 


2 


c 


SEGMENT 


********** 


21 


02442000 


T 


0021*0000 


10 




02443000 


T 


0021*0000 





c 


02444000 


T 


0021*0000 


1 


02445000 


T 


0021*0001 


3 




02446000 


T 


0021*0002 


1 


, 


02447000 


T 


0021*0002 


H 


L. 


02448000 


T 


0021*0003 


12 




02449000 


T 


0021*0004 


(0 


c 


02450000 


T 


0021*0005 


!2 


02451000 


T 


0021*0007 


!2 




02452000 


T 


0021*0007 


2 




02453000 


T 


0021*0010 


H 


(_; 


02454000 


T 


0021*0011! 


2 




02455000 


T 


0021*0014 


'0 


,-, 


02456000 


T 


0021*0014 





r 


02457000 


T 


0021»00l7 


3 




02458000 


T 


0021 S0022 





.--*** 


02459000 


T 


0021*0022 


1 


i 

Ks 


24 LONG. 


NEXT SEG 


19 




02460000 


T 


0019*0139 


12 


■>— -v 


02461000 


T 


0019*0139 


3 


c 


02462000 


T 


0019*0139 


3 




02463000 


T 


0019*0140 





c 


02464000 


T 


0019*01401 


1 


02465000 


T 


0019*0145 


3 . . 




02466000 


T 


0019*0147 


2 




02467000 


T 


0019*0147 


2 


c 


02468000 


T 


0019*0147 


3 




02469000 


T 


0019*0151' 


2 


c 


02470000 


T 


0019*0151 


3 


02471000 


T 


0019*0155 


2 




02472000 


T 


0019*0155 


3 


.'■*"> 


02473000 


T 


0019*0159 


2 


c 


02474000 


T 


0019*0159 


S3 


_ . 


02475000 


T 


0019*0163 


2 


,-*—v 


02476000 


T 


0019*0163! 


3 


c 


02477000 


T 


0019*0164 


to 




O2478OOO 


T 


00l9*0i64 


1 




0?479000 


T 


0019*0168 





c 


024R0000 


T 


0019*0168 


1 




02481000 


T 


0019*01721 





r— N 


02482000 


T 


0019*0172. 


1 


O 


02483000 


T 


0019*0173! 


2 




02484000 


T 


0019*0174! 





,_^ 


02485000 


T 


0019*01741 


1 


u 


02485500 


T 


0019*01771 


2 




02486000 


T 


0019*0180) 





c 


02487000 


T 


0019*0185! 


3 



o 



u 

o 

o 
o 

-O 

;: o 
o 
o 
o 
o 
o 
o 
o 



IF 
IF Q 



IF Q 
IF 
IF Q 

IF 

GO WH 
LENrJH6» 
IF <5 

IF Q 

IF Q 



GO EX IT J 

end; 
switchtt(vojdtbit) j 
rO again J 

fndj 

= "5chfck" then 

RFGlN SWITcHIT(CHfcKhIT); r,0 AGAIN ENpiJ 

= " 5 L I M I T " THEN 

BFGTN 

SKAN; 

TF RESULT^3 THEN % S H OULD BE NUMBER.' 

BEGIN FLAGC600); GO AGAIN END? 
ERRMAXj=CoNV(ACCU M tn»0»ACCUH[13,Cl2lfi]); 

Go skanagain; 

END; 

= "5PUNCH" THEN 

BEGIN sWlTrHlTCPUNCHqlTJJ 

= "5PURGE" THEN 

BEGIN SWlTCHITCPURGERlT)J 

= "5LI5TA" THEN 

BFGIN 

SWITCHITCLISTABIT); 
GO AGAIN; 

END J 

s "5STUFF" THEN 

BFGIN SWITCHIT(STUFFBIT)? 

ATlSjTl 



GO AGAIN; 
GO AGAIN; 



end; 

ENDJ 



fiO AGAIN; END; 



IF o 



■<? 






c^V 



o 






= "6sfQfR m thfn 

BFGIN SWITCHIT(SeQeRRBtT); GO AGAIN END? 

s "6siNgL" then 

BFGIN SWlTCHjf cSiNGLBTT); fiO AGAjN £ND* 

b »»6seqxe" Then 

BEGIN 

segxeqtoG!=XmodE' £ ? a n d Xmodem 4 or seqxeqtogjxnever reset. 
IF BUIlDlImE,[45{1] then buildlInE:=true; 

GO SKANAGAIN; 

END; 

= f, 6DERUG" THEN 

BFGIN 

SWITCH I T(l)ERUGBlT)! 

IF DEBUGTOG THEN 

IF WOPCOJ=0 THEN 

BEGIN 

F'lUU WOPC + ] WITH 

c%" 



\ii- 



e> 



<h 



Qj 



o 



o 



L 



\ 









4- 

11, 

Zlt 

39, 

69, 

132, 

?6l» 

533, 

582, 



"Nop 
"gfQ 

"RjN 
"NfQ 
"SND 
"DljP 

"Uro 

"SSP 





"LIT 
"OPo 



c ,? ," 



l003,"Scl 
76 Dirt 



12, 
22, 
40, 
71, 
33, 
78, 
34, 
90, 
00/| 



DFSC". 

"PRT " 

"BBC " 

"coc " 

"XIT " 

"XCH " 

"LpC " 

"BBW " 

"LBU " 

,"SAN » 



START 



13, 
24, 
48» 
72, 
13/4, 



"DFU 
"I NX 

"SUB 
"MKS 
"CHS 



it 



16, 
", 35 . 
", 64> 
",128, 

",167. ..._ 

29<|."LFc "»32?»"ZPl "»38 
548. "ISN ",549» "LSS "» 
806» "UFU ",896» "RDV ". 

i r> a O - tl C /■> C II 



10l9,»ScS 



"ADD 

"LOR 

"MyL 

"DIV 

"RTS 
11 

3S 
'RDV 



"PRL 
"GTR 
"LNd 
"COM 

",J68, "CDC 
384, "IDV 



18. 

37. 

67. 

130, 



", 19, 
", 38, 
", 68, 

",131, 
",260, 



"LNG 
"BFC 
"STD 

"LQV 
"LOD 



•532. "ISO 



11 



550, "BFW ",581, "EQL 



-7 k DI& -{I V\f\ 



024 
024 
024 
024 
024 
024 
024 
024 
024 
024 
025 

025 
02S 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 
OF SF 
025 
025 
025 
025 
025 
025 
025 
025 
025 
025 



88000 
89000 
90000 
93000 
94000 
95000 
96000 
97000 
98000 
99000 
00000 
OlOOO 
02000 
03000 
04000 
05000 
06000 
07000 
08000 
09000 
10000 
11000 
13000 
14000 
15000 
16000 
17000 
18000 
19000 
20000 
21000 
22000 
23000 
24000 
P5000 
26000 
27000 
28000 
29000 
30000 
31000 
33000 
34000 
35000 
36000 
37000 
GMENT 
38000 
39000 
40000 
41000 
42000 
43000 
44000 
45000 
46000 
47000 



0019 
0019 

0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 



******** 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 



0186 
0187 
0187 
0188 
0188 
0188 
0189 
0192 
0192 
0193 
0197 
0i97 
0201 
0204 
0204 
0204 
0205 
0209 
0209 
0213 
0213 
0214 
0215 
0217 
0217 
0217 

0221 
0221 
0222 

0222 

0226 

0226 

0230 

0230 

0231 

0234 

0236 

0238 

0238 

0238 

0239 

0240 

0240 

0242 

0242 

0243 

** 

0244 

0244 

0244 

0244 

0244 

0244 

0244 

0244 

0244 

0244 





L 




C 


1 




2 




2 


C 







1 
1 


c 


2 







f" 


1 


{ 


2 




2 




3 


L- 


2 







/-- 


1 


(_ 


1 




3 




2 


c 


3 




2 
3 


c 







2 


-— «, 


2 


u 


2 




3 




2 


c 


3 









1 


c 


. 




1 







c 


1 




2 







c 





- 





,."- \ 





u 


1 




2 







c 


1 









1 


c 


2 




22 




1 


c 


1 




1 




1 


c 


1 




1 




1 


c 


1- 




1 

1 


c 




c 



V_y 



o 

o 
o 

JO 

So 
;; o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



2> 



v>^ 



y 






4-° 



Vs 



lO?3»1O?1»lO?3,j0?^M023iia?^M&2 3ilO?3»i0?3»l023MO?3#lO23»l0?3»l0?3» 
1023»10?3»1023»1023MO?3M023»1023»1023»10?3M023M023» 1023} 

FILL COPU] WITH % CHARACTER MODE MNEMONICS 
> " " * * > 



0»"FXr 
12,"SDa 
22,"TEG 
31. "BIT 
38,"JNs 

45,"JRr 



»"rSD 



3,"BSS 



"» 4»"RQA "» 5, "TRW ">6» W SED 



7»"T0A 



, M3» I, SSA M »1«» W SFD "»15»"SRD 'M8,"SfS %20,"TEQ 

".23,"TGR »N24,"SRS »#?5»"SFS "»28,"TfL "»29,»TLS 

%32»"lNc "»33» f, STC ">34»"SEC "»35»'»CRF %36,"JNc 

",39,'\JFW M »40,"RcA "»41»"fNS ">42>"bNS %43»"RSA 

",46,»TSA "»47,"JRV "»48,"cEQ %49."CNE "»50,«CEG 
52»"BIT ".SS.^BIR %54»"0CV/ %55»"JCV "»56."CEL "»57,"cLS ",58, "FSU "» 

59»»'FAn "»60,"TRP ".61."TRN "»62»"TRZ "»63."TRS ", 64» » 64 . , 64, 0, 64 » 0» 

64»0»64»0, 64,0, 64,0; 



"»21, "TNE 
", 30, "TAN " 
"«37,"JFC " 

"»44,»5CA " 
"#5l,»CGR " 



IF 



GO 
LENGTH 
% IF 

% 

% IF 

% 
LENGTH 

Length 
if 



w 

7: 





8$ 
9: 

Q 



end; 

GO AGAIN} 
ENDJ 

= "6F0RMA" THEN 
BFGIN SWITCHIT(FORMATBIT)} 
HAT ISI T; 



£0(3 



GO AGAIN} END} 



= "7INCLU" THEN 

BEGIN DOLLARCARDJsSTaRTINCl.UDING} Go EXIT} END? 

= "7INCLN" THEN 

BEGIN SWITCHITCNEWINCLBIT)} GO AGAIN} END; 

% NO OPTIONS OF THIS LfNGTH ARE CURRENTLY IMPLEMENTED. 



WHATlS 
IF 



Br 

TN 
GO 

EN 



IT 

Rf 



FSU 
BEG 
BAS 
TOT 

nfw 

GO 

ENn 

IF RESU 
BF 
IF 



" 9 I N t R I " THFN 
GIN . 

TOG8=XMOnE*2 
SKANAGAlN} 

d; 



them 



ANn xmOoe? 4 a or intog; % never reset, 



LT = 3 

in 

ENUMisConV(ACCUm[1]»0»ACcUM[1] 

alnoss-io; 

base$=true; 

skaNagain; 



CJZI6D* 



LT 

GI 

Q 



ELS 



common 

IF 

sw 



p 

IT 



GO 
pN 
D! 

FSU 
BE 

CHI 



s 

n; 
n 

LT 

GI 

T( 



=2 THFN 
N 

= "1 

REGI 

SkAN 

IF R 
ADD 

E FLA 

END} 

«ANaG 



+ 0000 
N 

ESU L T 
VALUE 
GC600 

A IN; 



then 



=3 THEN 

: S C0NV(ACCUM[1]»0»ACCUM[U 
)} % NUMBER EXPECTED, 



[12:63) 



NOt RfcOgNiZE OPTION} 

*\ THFN % NOT AN IDENTIFIER. 

N FLAfif60l); qO SKANAGAIN END; 

useropinxj; % useRqpinx means a 



USER-DEFINED OPTION. 



02548000 
02549000 

22 IS 128 LON 

02550000 
02551000 
START OF SEGMENT 
02552000 
02553000 
02554000 
02555000 
02556000 
02557000 
02558000 
02559000 
02560000 

23 IS 128 LON 

02563000 
02564000 
02565000 
02566000 
02567000 
02568000 
02569000 
02570000 
02571000 
02572000 
02573000 
02574000 
02575000 
02576000 
02576500 
02577000 
02577250 
02577500 
02578000 
02579000 
02580000 
02581000 
02582000 
02583000 
02584000 
02585000 
02586000 
02587000 
02588000 
02589000 
0?590000 
02591000 
02592000 
02593000 
02594000 
02595000 
02596000 
02597000 
02598000 
02599000 
02600000 



T 


00] 


[950244: 


T 


00J 


19*0244* 


G» 


NEX1 


r SEG 


T 


001 


19*0244} 


T 


001 


19*0245: 


4c***** 


***** 


T 


001 


19»0246: 


T 


00 


I 9 1 0246 J 


T 


001 


19:0246} 


T 


00 


L9J0246S 


T 


00! 


19:02461 


T 


00! 


19:0246: 


T 


00 


19:0246: 


T 


OOi 


19:0246: 


T 


00 


19:0246: 


Gt 


NEX1 


r SEG 


T 


00! 


I9?0246l 


T 


00! 


19*0246* 


T 


00. 


19:0248; 


T 


00! 


19:0248; 


T 


00! 


19:0248; 


T 


00] 


19J0252: 


T 


00] 


19:0252: 


T 


00! 


19:0253« 


T 


001 


19:0253* 


T 


00! 


19:0253: 


T 


00! 


19 : 0253* 


T 


001 


19:0253} 


T 


001 


19J0253: 


T 


00] 


19:0253: 


T 


00! 


19J0253: 


T 


001 


19*0254* 


T 


00] 


19:0258; 


T 


00; 


[9:0260: 


T 


OOi 


19:0260: 


T 


00] 


19:0260; 


T 


001 


19J0260: 


T 


00] 


19 : 0261 « 


T 


00 ( 


19:0264! 


T 


00< 


19*0265: 


T 


00< 


19:0266; 


T 


00 


19:0266: 


T 


oo: 


19*0266; 


T 


00 


1910267: 


T 


00! 


L9I0268* 


T 


00, 


19:02681 


T 


001 


L9S0?69I 


T 


00< 


19*0273* 


T 


001 


19:0273: 


T 


001 


19:0276; 


T 


00 


19:0279* 


T 


00 


19*0279} 


T 


00 


L9:0280; 


T 


00' 


I9:0280i 


T 


00 


19 * 0280* 


T 


00! 


19 : 0261 * 


T 


00' 


19:0282* 



19 

1 

2 

23 



















19 









1 



1 

2 

2 
2 
2 
2 
2 
2 
3 

1 




1 

2 
1 
3 

1 
1 
3 

1 
2 
2 
3 

3 
3 



2 
1 



c 

c 
c 
c 
c 
c 
c 






c 

c 

,■ n 

c 
c 
c 
c 
c 



v./ 



c 
c 



v_ 



o 
o 
o 
o 

> 

to 

o 

o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 

o 



GO AGAIN? 
EXIT: 

LlSTERlsDEBUGToG OR UISTOG OR LlSTATOG* 

MOVf(iO»DEFINEARRAYcOJ»ACcUM[01); % restorf information for 
CoU n TisSCOUnTj RESUuTjsSRESULTl % "TABLE" To RESUME SCAN, 

restorfseqmum(lcr»lnfotlastseorow»lastsequencej); * for void 

dollartog;=false? 

end dollarcard} 



tests 



comment ta 

USES 
THE 
T A B L 

ELBA 
COMU 
IS A 
flL 
SCAN 
rTNf 
TH 

REST 
TH 



II 
FURT 



BLE I 

WHEN 

RESU L 

E MAI 
T, E 
NlCAT 
LMOST 
THER 

Ned* 
RaL n 

E PAR 

Red t 

E GEN 
I) IF 
I) PR 

A) S 

B) T 
t) 

2) 

. 3) 



C) L 

0) I 

E) G 

I) RE 

HER D 



S THE 
IT I 

T RET 

nTain 

LBAT 

ion b 

EXcL 
USF I 

<SFE 
I SCUS 
AMfTE 
USUAL 
ERAL 

P < 
OCESS 
CAfj, 
EST F 

ident 

IN 
NUMBE 

AMD 
TEST 

PRO 

SPE 
0AD E 
F ELB 
BAC 
TUrnj 

ETAIL 



ROUT 
S DES 
URNED 
S THE 
ANO I 
ETWEE 

USIVE 

s mad 

. FOR 
SION 
R P I 

LY I- 

PLAN 
NXTEL 
ONE 



INE T 

IHED 
IS T 

VARl 

ARE 

n tab 

LY ||S 
F IN 
EXaM 

SFE T 

s The 
1, I* 

OF TA 
BAT G 
QUAnT 



HAT M 
TO SC 
HE C|. 
A8UES 
PRlNC 
LE AN 
FD BY 
ORDER 

ple» 

HE DF 
ACTU 
OR H 
BLE I 
ON 
ITY, 



OST CODE 
AN ANOTH 
ASS OF T 
I AND n 
IpAL VAR 
D THE OU 

TABLE* 
TO FORG 
COMPOuNq 

claRatio 

AL INDEX 

1). 

S THIS J 

TO III). 



in the compiler 
er logical quantity, 
he item desired, 
xtelbt and the array 
iabl.es used f r 
tside world. nxtelbt 
although an occaslon" 

ET THAT SOMETHING WAS 
TAltO» FOR FURTHER 
N OF THESE VARIABLES. 
OF THE QUANTITY 



OR I 
IF I E 

SPEC 
R - 

EXP 
IF S 
CESS 
CIAL 
LBAT 
AT I 
K TO 
WITH 
S AR 



DENTlF 
R - UO 
I AL MA 
PROCES 
ONENT 
PECIaL 
ING - 

AND I 
S FULL 

P. 

CLASS 

E GIVE 



IER» NUMBER* OR SPECIAL CHARACTER, 
OKUp IN DIRECTORY AND PROCESS 
NNER IF COMMENT OR DEFINED ID, 
S INTEGER PART* FRACTIONAL PART. 
PART. 

CHARACTER REQUIRES SPECIAL 
OTHERWISE GET ELBAT WORD FROM 



NCREMENT NXTELBT, 
ADJUST ELBAT, NXTELBT, 

OF ELBATtp], 

m Im body qe table, 



I» AND P. 



5 

intege 

BE 

La 



sw 

sw 

WH 

DO 

SCANAG 



aRgh? 



R PROCEDURE TaBLE(P); Va^UE Pi INTEGER Pj 
GIN 

bfL peRcent»sPfcia^chaR»complftf,colon,dOt»atsign,QuOte« 

strngxt.moveit^argh.fiNiShnumber, 

scanagain»fpart,epart, i part, i dent, rose, compost* doll ar,rtparen, 

cross h atch>numberend? 
itch speclalswitch!=percent»dnllar»dot,atsign*colon.quote» 

rtparen, crosshatch? 
itch resultswiTch!=ident*specialcharmparT; 

Il.E p > NXTELBT 

BEGIN 
AINJ 

COUNT S=RESULT: s ACCUMr 1] $*0$ SCANNER? 

r,o RfsuLtswitchcRfsultd; 



Q t = A C C U M C 1 ] J FLAGCl'U); GO SCANAGAlNj 
SPECIALcHARs 



02601000 
02602000 
02602500 
02602600 
02602700 
02602800 
02603000 
02604000 
19 IS 296 LON 
02605000 
02606000 
0?607000 
02606000 

02609000 
02610000 
02611000 
02612000 
02613000 
02614000 
02615000 
02616000 
02617000 
02618000 
02619000 
02620000 
02621000 
02622000 
02623000 
02624000 
02625000 
02626000 
02627000 
02628000 
02629000 
02630000 
02631000 
02632000 
02633000 
02634000 
02635000 
02636000 
02637000 
START Of SFfiMpNT 
02638000 
02639000 
02640000 
02641000 
02642000 
02643000 
02644000 
02645000 
02646000 
02647000 
02648000 
02649000 
02650000 
02651000 



T 
T 
T 
T 
T 
T 
T 
T 
G. 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



00l9 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
NEXT 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



******* 

T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0024 
0024 
0024 
0024 
00?4 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 
0024 



80283 

50284 

50284 

50287 

50289 

10290 

$0292 

i0293 

SEG 

50242 

50242 

'0242 

50242 

S0242 

50242 

S0242 

10242 

50242 

$0242 

50242 

50242 

50242 

S0242 

50242 

'0242 

502z,2 

50242 

50242 

50242 

502ft2 

50242 

50242 

50242 

50242 

'0242 

50242 

50242 

50242 

50242 

;0242 

5 0242 

50242 

#** 

50000 

$0000 

50000 

50000 

50002 

50007 

50012 

50013 

S0014 

50015 

$0017 

$0019 

$0020 

$0022 



3 





2- 

2 

1 

1 

2 

3 
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1 

2 

1 

2 

2 
3 

3 



50 



c 
c 
c 
c 



c 
c 
c 
c 

r 



c 
c 
c 

c 
c 

/—I 



v_ 



o 
o 
o 
: o 

\o 

fj 

o 

o 
o 
o 
o 

o 

o 
o 

o 
o 

o 

o 



COMMENT 
COMMENT 

commfnt 

COLON? 

DOT: 
ATSIGN: 



COMMENT 
QUOTE: 



ELSr 



STRNGXT: 
MOVEITJ 



GTlisACCUHrl ],[18«6] - 2? 
ENDToGlsGTi = 57 AND EnDTOGJ 
OBTAIN ACTUAL CHARACTER FRoM ACCUm; 
Tt=SpEClALEGTl&GTiU25 4lS3J3; 

notice compression technique used to shorten table of 
elbat words for special characters? 
if g t 1 : = t . i n c r = then go completfj 
go sPecialswitchcgtij; 

TNCR FTFLD Of SPECIAL CHARACTER IS NON-ZERO FOR SPECIAL 
CHARACTERS REQUIRING SPECIAL HANDLING. INCR tS SWITCHED 

on to obtain discrimination'' 

resulT:=7; scanner; comment Eliminate blanks - checking 

for :- in place of * ; 
if examin (ncr) ~ "=" then 

begin resultj=oj scanners t i =spec i ale 1 3 ) end; 

RESULT:=2J GO COMPLETE? 



IF EXAMIN(NCR)>9 
NHI !=NLOj=OJ 
Ci s O» GO FPART; 



OR FNDTOG THEN GO COMPLETE; 



RESULTisO! SCANNER; % SCAN PAST 
IF C0UnT>i7 THEN GO ARGH; % 16 CHARS. 
IF 0CTlZE(ACCUMtn»C,17-C0UNT.C0UNT-i) 
BEGIN Q: = ACCUMm; FlAG(521); GO 
Go NUMBEREMD; 
DOT AND ATSIGN ENTER NUMBER CONVERSION 



+ " @ " , 

THEN 
SCANAGAIN 



END; 



AT CORRECT SPOT} 



cOuNt:= 
T!=IF S 

if Real 

DO BF 

Rf 

IF 



0; 
tRf 
CST 
GIN 
SUL 
CO 



A^TOr, THEN 
REAMT0g)>1 



63 

Then 8 



FLSE 7; 



END U 

q:=accum[i 

IF COUNT<0 
ACCUMClJlB 

T:=Cf=o; 

IF COUNT < THEN 



t»=s; scanner; 
unt>t Then 

BEGIN QtsACCUMm; FLAGC520); GO SCANAGAlN FND 

nTjl examincncR) = ""'•; 
j; resu l t: s 5; scanner; countj=coUnt-i * 
then counts=count+64; 
q; ReSULT:=4; 



M0VECHARACTERS«C0uNT»Ar.CUM[U»3»c»8-C0UNT); 

t.cLasss-stRNgcONj 

go completf; 
comment crossmatch handles two situations: 

the crosshatch at end of define declarations and 

THE CROSSHATCH AT END oF A|.PHA REPRESENTING DEFInED 
THE TW CASFS ARE PROCESSED DIFFERENTLY. THE FIRST 
MFRELY PLACES THE CROSSHATCH IN ELBAT, 
CAUSFS AN EXIT FROM SCANNING THE ALPHa 
FOR a FULL DISCUSSION SEE DEFINEGFN; 

crosshatch! 

if dfftNectR*o thfn ro complfte; 

PUTSFQNOcfiTl.UcR); 

turnonstoplightco.lcr); 

IF DEFlNElMDEX s ThEn GO ARGH* 



IDS, 
CASE 
THE SECOND CASE 
FOR THE DEFINED ID. 



02652000 


T 


0024 


10023 


'2 


02653000 


T 


0024 


(0025 


'2 


02654000 


T 


0024 


S0026 


H 


02655000 


T 


0024 


50026 


81 


02656000 


T 


0024 


! 0028 


1 1 


02657000 


T 


0024 


(0028 


11 


02658000 


T 


0024 


!0028 


11 


02659000 


T 


0024 


10031 


12 


02660000 


T 


0024 


(0033 


2 


02661000 


T 


0024 


S0033 


'2 


02662000 


T 


00?4 


J0033 


f 2 


02663000 


T 


0024 


10033 


2 


02664000 


T 


0024 


0034 





02665000 


T 


0024 


(0034 





02666000 


T 


0024 


.0036 





02667000 


T 


0024 


.0038 


:i 


02668000 


T 


0024 


(0040 


10 


02680000 


T 


0024 


10040 


sO 


02681000 


T 


0024 


S0043 


:2 


02682000 


T 


0024 


0044 





02683000 


T 


0024 


10045 


13 


02684000 


T 


0024 


'0046 





02685000 


T 


0024 < 


0047 


2 


02686000 


T 


0024 


1OO48 


'1 


02686500 


T 


0024 


0051 


13 


02687000 


T 


0024 


10054 


H 


02689000 


T 


0024 


0055 


'2 


02690000 


T 


0024 


10055 


\2 


02691000 


T 


0024 


10055 


12 


02692000 


T 


0024 


0055 


3 


02692500 


T 


0024 


00561 





02693000 


T 


0024 


0060 


'0 


02694000 


T 


0024' 


0060 





02695000 


T 


0024 


0061 


12 


02696000 


T 


0024 


0062 





02697000 


T 


0024 


0064 


1 


02698000 


T 


0024! 


00671 


2 


02699000 


T 


0024 


0070 


1 


02700000 


T 


0024 


0073 


2 


02701000 


T 


0024 


0075 


12 


02703000 


T 


0024! 


0076 





02704000 


T 


0024 


0077 


2 


02705000 


T 


0024 


S0078 


10 


02705100 


T 


0024 


,0080 


11 


02705200 


T 


0024 


0082 





02707000 


T 


0024 


10082 


H 


02708000 


T 


0024 ' 


00821 


1 


02709000 


T 


00241 


00821 


1 


02710000 


T 


0024« 


0082 


1 


02711000 


T 


0024! 


0082) 


1 


02712000 


T 


0024! 


0082! 


1 


02713000 


T 


0024! 


0082! 


1 


02714000 


T 


00241 


0082! 


1 


02715000 


T 


0024. 


0083 


2 


02716000 


T 


00241 


0084 





02717000 


T 


0024J 


0085! 


2 


0271 8000 


T 


024! 


0086 






c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 

, — > 

c 
c 

c 
c 
c 



i s 



c 



O i 

o 

o 
o 

h p 
:o 

"O 



o 
o 
o 
o 
o 
o 

Q 

o 
o 
o 

o 



DOLLAR* 

PERCENT; 

COMMENT 



COMMENT 
RTPARENi 



IPARTJ 
% 

% 
% 
% 
% 

ty 
n 

v 



% 
% 
% 
% 



% 

% 
% 
% 
% 



LCR?=f 
NCRJ=G 

GT?:=0 

LASTUS 

FOR GT 

R 

S 

L 

E 

GO SCA 

COMMEN 

dollar 

IE NCR 
GO SCA 
MOST P 

pfRcfN 

SIDE E 

AFTFR 

COMMON 

MtGHT 

RESULT 

IF EXA 

B 

R 

D 



GTi 

Tl 

&CT 

ED! 
lis 

EG I 

TAC 

AST 
ND! 
NAG 
T T 
CAR 

/ 
NAG 
ERC 
T» 
FFE 
A F 
T)» 
BE 

;=7 

MlN 
EGI 
ESU 




IsDEFlNEARRAYrDEFiNt'INDEX-i 
MOD 26214ft; 

I=DEFINEARRAY[DEFtnLINDEX{s 
-T , r 33! 15]; 

1 step 1 Until gt? do 

N 

KhEaDCCT:=TaKeCL A STINFO+1)) 

TaKE(LaSTINFO).LINKj 

I NFOssC NEXT INFO! =L AST INFO) - 



3) DIV 26P144'* 
DEFINEINDEX-3J)C33:18J15]J 

, [12J36] MOD 125];= 
T.PURPTJ 



HAnDl.ES CONTROL CARDS; 

rEaDacard; 



R 
R 

I 

R 

T 

E 

RESULT 

TCOUNT 

RESULT 

IF DEF 

IF (C 

R 

R 

C 

n 



FSU 
ESU 
F E 
FSU 

!=S 

nd; 

!=2 

:=0 
!=7 

INE 

= 3 

EGI 

FSU 

OUN 





ain; 

his code 
d; 

FCR THEN 

A IN? 

ENT SIGNS ACTING A s END OF 

PERCENT READS THF NfXT CAR 

r.t is that a^l characters 
Rfe peRcfnt s?gn cone not i 



FUNNY COMMA - HANdLE HERE? 

\ scanner; 
cmcr) = Hif» Then 

N 

LT! =0; scanner; 

BEGIN 

resultj=s; scanner 

fnd until fXaMIM(NcR) = 

LTt-o; scanner; 

lt;=7j scanner; 

xamincncr) * "(" 

lt:=o; scanner; 

PECIALC243 



CARD SENTINELS GET TO 
D AND STARTS OveR. A 
N A CARD ARE IGNORED 
MBEDDED IN A STRING OR 



»f« 



THEN GO AR 
Q!=ACCUM[1 



»t > 
> 



GHJ 
]! 



ELSE E 
I 



;sA 

F C 

IF 

LSE 

F C 



) GO C 

; c?=c 

} SCAN 

CTRsO 

OR C = 4 

N I 

LT : =5 j 

T:=0; 

REG IN 

RESUL 

IF CO 

END U 

CCUMC1 

-3 THE 

OCTIZ 

FLAG (5 

IF HE 

FLAGC 

OUNT < 

REG IN 

C!=AC 

end; 



omplete; 

onvert; 

ner; % deblank, 

THEN 

) AND EXAM^NCR)^*"" 

NTEGER SI2; 

scanner; % skip quoti 



THEN 20CTAL OR HEX STRING, 



t: s 5; scannfR; 

UNT > SjZlsftS DIV C T 
BEGIN ERRC520)! GO S 
NT IL EXAMlNC NCR)=»""! 

]; RESUlT:=5! SCANNER! CoUnT : sCOUnT- l ; 
N % OCTAL STRING, 
ECACCUM[1]»ACCUMU3»1 
21) % NON OCTAL CHARA 
XIZECaCcUMCI 3.ACCUMC4 
521)! « NON CHARACTER 
S I 7 THEN 



HEN % > 1 WORD LONG. 
CANAGAIN END! 



6-C0UNT.C0UNT) THEN 
CTER IN STRING. 
]>12-C0UNTtC0UNT) THEN 
IN HEX STRING, 



cumt4i; go finiShnumbeR; 



02719000 
02720000 
02721000 
02722000 
02723000 
02723500 
02724000 
02725000 
02726000 
02727000 
02728000 
027?9000 
02730000 
02731000 
02737000 
02738000 
02739000 
02740000 
02741000 
02742000 
02743000 
0^744000 
02745000 
02746000 
02747000 
02748000 
02749000 
02750000 
02751000 
02752000 
02753000 
02754000 
02755000 
02756000 
02757000 
02758000 
027S9000 
02760000 
02761000 
02762000 
02763000 
02764000 
02765000 
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ELSE 



BEGI 
T :=T 

IF A 

+ 
IF D 

IF 



tLse 



oUnT!=b' t,Cl,asss=string> 

CTErS(r»aCCUmU]*0»ACCUm[1]»3)» 
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00UBL.E(THI»Tl.0»NHl»NL0f +» S=»NHI»NL0); 
ClaNH! 

End 
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Go PERCENT; 

complete: 

ELBATENXTELBTJi s T| 

-. - IE NOT DEFINING THEN 

IF T.Ct-ASS a BFGINV THEN 

REGINSTACK[BSPOlNTS=RSPOINT+13i-CARDNUMBER ELSE 
IF T. CLASS = ENDV THEN 
BEGIN 

IF LISTER THEN IF BEND THEN BEGINPRINT5 
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RSPOINTI-RSPOINT - RFALCRSPOlNT > 0)J % PREVENT INVALID INDEX 
FNd) 2108' 

stopdefinfs=faLse; comment allow offines again; 

IF NXTfLrt:=NXTELrT+1 > 74 THEN 
IF not MaCROiD then 
BEGIN 
COMMENT ELBAT IS FULLi AnJUsT IT; 

M0VE(l0,ELBATt65],E^BAT); 

I : =1 -65; P:=P-65; NXTF^BT : =10; 

END 

end; 

IF TABLF5=ELBATrP] .CLASS = cOMMfNTV THEN 
BFGlN 
COMMENT SPEClAu HANDLING OF CONSTANTS FOR SAKE OF FOR STATEMENTS! 
C Is INF0[O,FLBATrP]. ADDRESS]! 
ELBAT[p],Ci,AS5 | sTABLE »sNON|.ITnO 

End; 

STOpDEFlNE:=FALSE; COMMENT ALLOW DEFINE; 
END TABLE ; 
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PROCEDURE boolcompcb); booLfan 

INTfGfR PROcFDURE NfXTJ 
BFGlN 
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tNTfgep tj 

dffine ERROR s begin fLAG(603); go fxit end*; 

SKaN; 

IF Rf-SuLT = 3 THE n 

IF RESULT=2 THFN 

rfgin 

TtsjF G=»1»0000» OR Q = "l!g0000» THFN 20 % FAKE OUT BOOLFXP, 

ELSF ((T»a0.rl8i6]-2) & T[42:4U3]); 
j F T = ]l OR T=19 OR T = 20 THEN BATMAN 8 *SPEC I AL[T] 
FLAGf603); 
GO EXIT 

END SPECIAL CHARACTERS; 
FOR BOOLFAN OPERATORS, THEN 

IF Q="3N0T00» THEN NOTOP 
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end Mfxt; 

boolfan procedure BOOLfXPj 

BFGIN 
pOOLFAN b; 

BIbROOLPRtMI 

WHILE MYCLASS>F Q VOP ANn MycUSSSANdOP DO B00LC0MP< B ) ? 

BOOLEXPJsB 

end boolexpj 
Boolean procedure boolprim? 

BEGIN 

boolean b»kmoT; 

DEFINE SKlplT - MYCLaSS J -NEXT tl 

if knot:-cnext=notop> then sk IP it s 
if myclass=leftparen then 

BEGIN 

b:=booLexp; 

if myclass^rtparfn thfn flagc604)j 

END 
El-Sir IF MYCLASS*B00iD THEN FLAG(601) 

elsf rs=batman<o; 

TF KNOT THFN B!=N0T B? SKjPlT; 
rOOLPRiMJ=b 

fNd BOOLPRjM; 
PROrEDURF BOOLcOMPCB)! BOOLEAN b? 

bfgtn 

Rfal opclassi 

boolean t; 
opclassjsmyclass; 

T:=BoOLPRlM? 

WHILE OPCLASS<MYCLASS DO BoOLCOMp(T)l 

B!= IF 0PCLASS=AND0P THEN <B AND T) 

ELSE IF 0PCLASS~0R0P THEN CB OR T) 
ELSE (B EQV T); 

END B00LC0MP; 
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FORWARD DECLARATIONS 
t*9*ttMtt*tttt*tt*tt*tt*ttMttttttttttt*tt*t**tttttttttt*ttt*tt1 

% 

procedure afxp; forward? 

procedhRf aRjThsec; forward? 

procedure- simpaRith* forward? 

pROcedijRf aRiThcomp? forward; 

procedhRf pRiMaRy; forward? 

dffiNf rfxp = afxp#? 

iNTfgfR procedure fxprss? forward? 

procedure poltsherfexpect)? value fxpect; real expect? forward? 

procedure inline? forward; 

procedure subhandffrom)? value from? boolean from? forward; 

procedure i0st m t; forward; 
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FORWARD? 

valUf syllable; real syllable? forward; 
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ENTERtTYPEV); 
VaUJE TYPEV; 

jforw a rdj 
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al); valUf literal; integer literals 

lTERAL[36!38»iO]); 
OPERATOR? 

TOR); value operator; integer opfRator; 

PFRAT0R r 36!38: 10]); 

arily for use by strmstmt to emit charactor modf 
s. however it also handles d i a , dib, and trb) 
.operator); value repeat , operator; 
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4 THEN FLAGC268); 
0RRREPEATt36542}6J) END EMlTC; 
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COMMENT EMITR EMITS a BRANCH OPERATOR 
PROCEDURE EMITr(bRaNcH>FROM*tOWARDS)J 

VALUE branch, from, TOWARDS? 
INTEGFR BR/\NcH»fROMiTOWaRDS; 
REGIN 

INTFGER TL; 
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procedure constantcLean ; 

if mrcLean then 

BEBtN 

TNTEfiER J»TFMPL,n»LlNK? 

BOOLEAN CKEL' 
LABEL ALLT H U 8 

For j * 1 step 2 until lastenTry do 

BEGIN 
ADJUST; TE"MPL*L? L«- 1 NFOC o» 255-J+l ] ; 
CREL «• FALSE; 
DO BEGIN 

IP n*(TEMpL-L+3)DIV 4>128 THEN 
IF MODE t THEN 
PEGIN FLAGC50); GO TO aLLTHU END; 



START Of 



allthuj 



LINK«-GET(L); 

rRrL *• THIJF" 

IF MOrf * THFN fMITVCD+768) eUSf 
FMjTVCREALCTFMPL>204B)xi024+TEMPL n IV 

ENn until l«- link = 4095 ; 

L «• TEMPL; 
IF CRFL THEN EMITWORDC lNF0t0,255-J ]); 
END) 
LaSTENTRy * 0? 
END J 



4) 



COMMENT EMITNUM HANDLES ThE EMISSION OF CODE FOR CON 
EXPLICIT AnD IMPLICIT, IN EVERY CASE.EM 

produce code to get the desired constan 
the stack, if the number is a literal a 
syllable is produced* however » non-l i ter 
in the zero-th row of info with the syl 
positions, the first e m i t n h m on a part 
constant causes the values of l and the 

TO BE STORfD IN iNfOEO,*] cnotehtems A 

in Reverse starting with infoeo.255j.et 

ITS THE JOr OF CONSTANTCLEAN TO EMIT TH 

0pdc (sfe constantclean procedure for d 
procedure emitnumf c ); value c? rfal c; 

begin label fintS h ed»found ; real nj 



STANTS.BOTH 
ITMUM will 
t on top of 
simple litc 
als are kept 

LABLE 
ICULAR 

CONSTANT 
RE STORED 
Ot THEN 
E ACTUAL 
ETAILS) ; 



31 IS 



IF C 

ELSE 



IF 



ri »37]=o Then em t tlcO 

begin 

fouled * L{ 

FOR N «, 1 STEP ? UNTIL LASTENTRY DO 

!NF0r0.?55-N] = C THEN GO TO FOUND ; 

I NFOr 0. p5<5 -LASTENTRY] «. 11 

lNF0t0»?55 -lASTENTrY-i]«. C ) 

EMITNC ln23<) I 

IF MODE=0 THEN EMlTOCNOP)? 



START OF 



4163000 
4164000 
4165000 
4166000 

segment 

4167000 
4168000 
4169000 
4170000 
4171000 
4172000 
4173000 
4174000 
4175000 
4175500 
4176000 
4177000 
4178000 
4179000 
418O000 
4151000 
4182000 
4183000 
4184000 
4184500 
4185000 
4186000 
4187000 
4188000 
4189000 
4190000 
33 LON 
4191000 
41 92000 
4193000 
4194000 
4195000 
4196000 
4197000 
4198000 
4199000 
4200000 
4201.000 
4202000 
4203000 
4204000 
SEGMENT 
4205000 
4206000 
4207000 
4207500 
4208000 
4209000 
421 0000 
4211000 
4212000 
4212100 



T 0003 
T 0003 
T 0003 

T 0003 

******* 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
G. 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
NEXT 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



******* 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 
0032 



'0297 
;0297 
10298 
50298 

*** 

:oooo 

10000 

soooo 

80000 
S0001 
JOOOl 
:0005 
80005 

50006 

50008 
50010 
50011 
10011 

>oon 
50011 

J0011 
50011 
50013 
50013 
50016 
50019 

50021 

50022 

80025 

50028 

50028 

SEG 

50303 

80303 

50303 

50303 

50303 

50303 

50303 

50303 

50303 

80303 

50303 

50303 

50303 

50303 

*** 

80000 
50002 
50003 
80003 
50004 
80005 
8OO1O 
50012 
8 0015 
50016 



3 

3 



1 
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2 

2 

2 

3 



1 



3 

3 

3 

3 

3 

3 

2 

3 



3 

2 

1 

3 



1 

3 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
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1 

2 
3 


2 

1 
3 




c 
c 
c 
c 
c 
c 
c 
c 

c 

r 



C 



C 



CJ 



u 

c 



(J 



o 
o 
o 
o 

jo 
;; o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



FOUND* 



FlNlSHFO'FNn 



LINKtOg«-FALSf? 

IF LftSTpNTRY «- UaSTFNtRY + 2 > 128 THEN 

BEGIN 

C * bumpu; 
constaNtcleaN; 

EMlTBCBFW»C»L)| 

end; 

fiO TO FINISHFD? 

FMiTf INfO[0»?55 -N+lJ)l 

LINKTOg«-FALSfJ 
tNfO[0,255-N + U* L-j; 

tf modebO thfn emitocnoP); 

fNd? 

F M I T N U M ; 



commfnt SfaRch Performs a biNaRy search on the cop and wop 

ARRAYS. GIVEN T H E OPERATOR BtTS SEARCH YIELDS ThF BCD 
MNEUMONlC FOR ThAT OPfRATOR, iF THE OPERATOR CANNOT 
BE FOUND SEARCH YiELDS BLANKS. 

NOTE} DIA^DIBtTrB ARE RETURNED AS BLANKS, ; 
ALPHA PROCEDURE SEARCH (Q#KEY)J VALUE KEY; ARRAY Qt 3J REAL KEY j 
BEGIN I.ABEL L; 



32 IS 



COMMENT 



GtI AMD Gt2 aRF INITIALIZED 

by pairs (aRgumfNt»function» 
and that the first argument 
the length of q is 12a, 

INTEGFR NfI ; 
N «- 6 4 ; 
FOR I * 66 STEP 
WHILE 
IF Q[ I 3= K F Y 



ASSUMMING THAT Q IS ORDERFD 
A RGUM£NT» FUNCTION* ETC ») 
IS IN QUI. FURTHERMORE 



START OF 



L! 



I *-0; c°MMfNt 
SfARCH*0[ I +13 

end search 



IF QtlKKEY 

N#-N 01 V 2 £ 

THfN GO TO L 



THEN 
1 DO 



N ELSE 



ARGUMENT NOT FOUND* SEARCH=Q[ 1 3 ; 



COMMFNT 
ALPHA 



R2D r,0 

CODE ; 
PROCEDURE 

B 2D* 0KB 
COMMENT PACK tS 

into TH 

IS PRE 
SYLLABL 
NUMBER 
STREAM PROCEDURE PaC 
VaLUF p 
BEGIN 
D1«-W0RD 
SI«-L0C 
DS*-2 CH 
END PA 

comment dfpug prints 
procedure dfbug(s); v 
beg?n Real tii 

if singltog thfn 



NVF R TS THF FOUR LOW ORDER OCTAL DIGITS TO BCD 

B2DCB); VALUE B* REAL B? 
t45!45s3i&fi[39;42:3]&Br33s39l33&Bf27;36!33 ; 

A STREAM PROCEDURE WHICH INSERTS THE SYLLABLF 
E EDOC ARRAY. THE SPECIFIC ELEMENT OF EDqC 
CISlLY = EDOCCCL DIV 4 ) DIV i?8*C< DIV 4>M0D 1?83 
E POSITIONAL MOD 4 )> WHERE L IS THE SYLLABLF 
RELATIVE TO THE BEGINNING OF THE SEGMENT; 
K(w0Rd»P0SITI0N»sYLLarLE); 

ositiqiVsyllable; 



33 IS 



; DI «- DI+POSITION ; DI <■ 
SYLLABLE ; SI*Sl+6; 
R ; 
CK ; 

out object codf if "debugn" 
alue S> REAL S; 



DI+POSITION; 



IS SET 



START Of 











C 


04213000 


T 


003210018 







04214000 


T 


003250019 


2 


,.-, 


04215000 


T 


003210020 


>X 


L. 


04216000 


T 


003250021 


12 




04217000 


T 


003210023 


12 


^ 


04218000 


T 


003250023 


13 


C 


04219000 


T 


003250024 


11 




04220000 


T 


0032J0024 


1 


/-**- 


04221000 


T 


0032J0025 


2 


'V- 


04222000 


T 


003250028 


■ 1 




04223000 


T 


003250029 


3 


c 


04223100 


T 


003250033 


2 


04224000 


T 


003250035 


!2 




04225000 


T 


003250035 


2 


____ 


38 LONG. 


NEXT SEG 


3 


L. 


04226000 


T 


000350303 


12 




04227000 


T 


000350303 


2 


c 


04228000 


T 


000360303 


2 


04??9000 


T 


000350303 


2 




04230000 


T 


0003503031 


2 


c 


04231000 


T 


000350303) 


2 


04232000 


T 


0003J0303! 


2 




SFGMENT 


********** 


33 


c 


04233000 


T 


003350000! 





04234000 


T 


0033S0000! 







04235000 


T 


003350000 





,r— - 


04236000 


T 


003350000 





c 


04237000 


T 


003350000 







04238000 


T 


003350000! 





«"****s 


04239000 


T 


003350000! 


1 




04240000 


T 


003350005! 


2. 




04241000 


T 


003350009! 


2 




04242000 


T 


003350011' 


2 


c 


04243000 


T 


003350011! 


3. . 




04244000 


T 


003350013! 


3 




16 LONG, 


NEXT SEG 


3 


/*"*> 

u 


04245000 


T 


000350303! 


2 




04246000 


T 


000350303! 


2 




04247000 


T 


0003503031 


2 


c 


04248000 


T 


000350303) 


2 




04265000 


T 


000350311 1 


2 


y"> 


042A6000 


T 


0003503111 


2 


c 


04267000 


T 


000350311' 


2 . ... 


_. . .„- 


04268000 


T 


0003503115 


2 


c 


04269000 


T 


0003:0311! 


2 


04270000 


T 


0003J0311) 


2 




04271000 


T 


000350311! 


2 


^ _ 


04272000 


T 


0003103111 


2 


(J 


04273000 


T 


000350312! 







04274000 


T 


0003503135 


2 


o 


04275000 


T 


000350313! 


3 


04276000 


T 


000350314! 







04277000 


T 


0003503145 





j"*s, 


04277500 


T 


0003503145 





o 


04278000 


T 


0003503145 







SFGMENT 


********** 


34 


o 


04278500 


T 


003450000! 






'U 



O 

o 

o 



o 

p 
u 
O 

o 
o 



o 



o 
o 
o 

o 
o 
o 
o 

o 



5, [36M0]) 



WRlTFCLiN F ,BU0»R2DCL)» 

if strfamtog then 

sfarchccop,s. [42:6]) 
fLSf if ti :=s,[ / * 6 »2] = i then seaRchcwop, 

ELSE WQP[TH . IF STREAMTOr THEN 
B?D(S.r36J6i> ELSE IF Tj=l THEN WOPfl] 
ELSE B?0(S,r36»iO])»B2DfS)) 
E L SE WrITE(lInE»BUG.B?D(l)» 

if streamtog then 
searchcc0p's.u2|63> 

FLSE IF Tl !=S»t^6:?.] = l THEN SEARcHC WOP#S • C36| 10 J > 
ELSE W0PCT1 1 » IF STREflMTOG THEN 
B2DCS ♦ C 36 ; 6 J ) ELSE IF Tl-1 THEN WOPCU 
ELSE B2nCS,r36: 1o1)'B2D(S)) ? 

end debug: 



COMMENT EMIT P 
DFBUGG 
GREATF 
PROCEDURE EMIT ( $ 
BEGIN 
IF L < 
8FGIM 
LlNKTO 
PACK(CODE(L 
IF DFB 
L *• L + 1 ? 
END F 
BEGIN 
POO EM 
EnO E 
EmITD 
PREVI0 
THE CU 
THE ftP 
IF R 
EMITTF 
EMITDC 
LABFL 



LACES SYLLABLES INTO ED0C 
ING OUTPUT ON THE PRlNTFRi 

r than 4093 syllables, 
) * value s? Real s ? 

4088 THEN 

G «• TRUE? 

D IV 4+1), L. [46:2], S); 
UGTOG THEN OEBUG(S)? 



CALLS DEBUG FOR 

AND CHECKS FOR SEGMENT! 



34 IS 



comment 
comment 



>oo); Ui* end; 

SEGMENT GREATER 



THAN 4093 SYLLABLES 



PROCEDURE 

BEGIN 



LSE 
FRR(2 
IT 
MIT ; 

emits 
us se 

RRENT 
PROIA 
ITS A 
D 

A>B»T)j VflLUE A.B.T ; INTEGER A»B»T? 
EXlT»NORMALI 



THE DIA»DIB»TRB SEQUENCE OF CODE. THE 
TUNG OF THE G"H AND K-V REGISTERS IS COMPaR 
. IF THE G-H»K-V OR ROTH ARE ALREADY SET TH 
SYLLABLfCS) ARE OMITTED 
TO BE TRANSFERED THEN NO SYLLABLES ARE 



iTE 

iRE 



*) 



ED 

EN 



04 
04 
04 
04 
04 
04 
OH 
04 
04 
04 
04 
04 
04 
04 
04 



279000 
279500 
280000 
280500 
281000 
281500 
?82000 
282500 
283000 
283500 
284000 
284500 
285000 
285500 
286000 
64 LONG. 



NORMAL: 



Real 

IF T 
BEGIN 
IF A 
ELSE 
IF B 
ELSE 
EMITO 
GO TO 
END> 



START 



QJ 
= 15 



then 



= 33 then 

if a * 18 
= 18 Thfn 

IF 8 M3 
(Q+197); 

FXITJ 



Q «- 512 
THFN GO TO 
Q * Q+256 
THEN 60 TO 
^OMMeNt -- 



NORMAL? 

NORMAL? 
THIS GFTS 



OUT FIXED FIELD? 



IF T* THEN 

begin 

EmIT(C(DIAlA«-A) DIV fi)x5l2 + C A*- A MOD 6)x 64 + DIA)J 
EMItCCCDULb*B) I) IV 6)x512 + ( g* B MOD 6)x 64 + DlB)? 



04 
04 
04 
04 
04 
04 
04 
04 
4 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
Of S 
04 
04 
04 
04 
04 

on 

04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 



288000 

289000 

290000 

291000 

292000 

293000 

294000 

295000 

296000 

297000 

298000 

299000 

300000 

301000 

302000 

305000 

306000 

307000 

308000 

309000 

310000 

311000 

311010 

EGMeNT ** 

311020 T 

311030 

311040 

311050 

311060 

311070 

311080 

311090 

311100 

311110 

311120 

312000 

313000 

31 4000 

315000 

316000 

317000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
003'* 
0034 
0034 
0034 
0034 

NEXT 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 

***** 

0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 
0035 



50000 

S0008 

?0009 

lOOlO 

?00l5 

?00i9 

'0023 

'0027 

50038 

J0039 

50040 

10045 

:0049 

50053 

?0061 

SEG 

S0314 

10314 

t 0314 

:03l4 

:03i4 

'0314 

(0315 

:03l6 

50317 

50322 

50324 

50325 

50325 

50329 

50329 

50329 

50329 

50329 

50329 

:0329 

50329 

50329 

50329 

*** 

50000 

50000 

50000 

50001 

50002 

50005 

50006 

50009 

50010 

50011 

JOOll 

iOOH 

lOOil 

50012 

50012 

50017 

50017 



1 


2 
1 
2 
2 
2 
2 

2 
1 
2 
2 
2 
2 

3 






3 

2 
\ 
1 
3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 
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1 

2 

1 

2 

1 

2 

1 

2 

2 

2 

3 





2 

2 



c 



L- 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 






c 



c 
c 



u 



fMIT(TRB+64xT){ 



O 

o 
o 
o 

lo 
£: o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



EXIT' 



FND 

end; 



EM I TO 



PROCEDURE EMlT|(E,A»B); valuf 
BFGTN LABFL E'XlT, T S; 



f»a»r; Real f>a.b; 



lNT£fiE R 

procedu 

RE 

bo 

BE 



is; 



s, 

RE 
AL 
OLE 
GIN 



Tl.T 

EMIT 

e; 

AN B 
IF 

ELSE 



35 



START 



2 ' 
21CE»B); 



VALUE E» B; 



f 

E = 
BEG 
BEG 



o Then 

in tF b Then emitO(Xch); 

IN cJl * E. ADDRESS} 

IF E * E. CLASS < I NT 1 THEN 
EMlTV(GTi) 

else if e < intarrayid 
emitpair(gti'lod) 

EMlTN(GTl) 



END 



THEN 

ELSE 



EN 

if b = 

RE 
IF STAC 
IF B * 

RE 



d; 

T 

GIN 

KCT 

15 

GIN 



HEN 
EMJ 
* 

then 
if 



fNd 



T2lCE»FflLSE)l GO TO EXIT 

thfn go to is; 



end; 



IF B 



FN 
< 

BE 



F N 

If (s * 

RE 



FN 
EMIT(O) 
FMIT2K 
EMJTDCA 



d; 

,0 

GIN 



DJ 

(4 

GIN 



d; 

; 

E'T 
,48 



A = 33 THEN 
BEGIN fMiT21(E»FALSE); 

EMITCO); EMlTOCINX); 

go to exit; 
fnd; 
if a s ifl then 

begin fmit(o); 

emit2Ke»truf); 

EMIT0(197); 

go to exit; 
fNd; 
go to is; 



and a+b = 48 Then 

EmITM(E# FALSE); 
EMlTL(2*B-n; 

emitoclnD); 
go to exit) 

B-a-B) MOD 6)+B < 39 THEN 

emit2Ke»faLse); 
emitct2*cti*a div 

EMiT(((A+B-l) DIV 

go to exit; 



rue); 

-B.B); 



6)x5l2+(A MOD 6)x64+DIA); 
6 -T1+1)x512+64xS+37)j 









c 


04318000 


T 


003550021*3 




04319000 


T 


0035*002353 


( ^ 


04320000 


T 


O035S002353 


L 


04321000 


T 


00355002353 




04322000 


T 


00355002353 


C 


04322100 


T 


00355002353 


S 27 LONG# 


NEXT SEG 3 




04500000 


T 


0003»0329»3 


C 


04501000 


T 


000350329*3 


OF SEGMENT 


********** 36 




04502000 


T 


00365000050 


^-, 


04503000 


T 


003650000*0 


c 


04504000 


T 


00365000050 




04505000 


T 


00365000050 


^ 


04506000 


T 


00361000050 


L, 


04507000 


T 


00365000051 




04508000 


T 


003650002*1 


—*-. 


04509000 


T 


0036*0004*1 


(_ 


04521000 


T 


0036*0006*0 




04522000 


T 


0036*0007*2 


,■*■* *. 


04523000 


T 


0036*0008* 1 


u 


04524000 


T 


0036*0010*0 




04525000 


T 


0036J0011S2 




04526000 


T 


003650011*3 




04526100 


T 


003650011*3 




04526200 


T 


003650012*1 




04527000 


T 


0036*0014* 1 


c 


04528000 


T 


003650016*0 




04529000 


T 


0036*001651 


x***s 


04530000 


T 


00365001850 


c 


04531000 


T 


00365001953 




04532000 


T 


003650021*2 


c 


04533000 


T 


00365002153 


04534000 


T 


003650021*3 




04535000 


T 


0036*0022*0 


^- 


04536000 


T 


003650023*3 


u 


04537000 


T 


00365002451 




04538000 


T 


0036*002552 


C 


04539000 


T 


0036*002553 


04540000 


T 


00365002553 




04541000 


T 


0036*00?6*0 


c 


04542000 


T 


0036*0026*0 


04543000 


T 


0036*0028*1 




04544000 


T 


0036*0030*0 


/"> 


04545000 


T 


0036*0033*2 


o 


04546000 


T 


0036*003450 




04547000 


T 


0036*0034! 1 


r* V 


04548000 


T 


00365003451 


c 


04549000 


T 


00365003850 




04550000 


T 


00365003953 


,-— "V 


04551000 


T 


003650044*1 


c 


04552000 


T 


00365004953 




04553000 


T 


00365005050 


c 


04554000 


T 


00365005050 


04555000 


T 


003650051*2 




04556000 


T 


0036*0052*0 


,--^ 


04557000 


T 


003650053*3 


u 



c 



c 



EXIT« FNDJ 



O 



o 



u 



■O 

!o 

o 
o 



O 

o 
o 
o 
o 
o 
o 
o 
o 



COMMp-Nj T 
COMMENT S 

procedure 
integer p 
comment t 
real proc 

comment p 

PROCEDllRF 
COMMeNt F 

PROCEDURE 
COMMFN 

STRF 



HIS Sf 

tfPi a 
stePt 

ROCEDU 
A«E FE 
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CTiON CONTAINS M I SCfLLANeOUS SFRVlCE ROUTINES* 

no stePjT are s h ort calls on table; 

t; elclass + tarleci«-t + i>; 

re stepi* stepi«-elclass+tablem<-i + i>; 

tchs a word from infoj 

takecindexj; value index; integer index; 

ke «- infoc index, llnkr* index.linkc]; 

ces a word into info; 

ORd»INDEX)j VaLuE HORD»INDEXl REAL WORD'INDEX; 

FOUN[)EX.LiNKr» lNDEXtLlNK c ] «- wORpi 

AGS ERROR MESSAGES* COUNTS THEM AND SUPPRESS FUTURE 

ROR MESSAGFS UNTIL THE COMPILER THINKS IT HAS RFCOVFRED; 

ERRNUM); VaLUf fRRNljM; INTEGER ERRNUM; 

GIN 

error is the stream procedure which actually producfs 

e frRor message on the printer? 

cedure wr i terror ( errnum » ac cum, line. count »lstseq) i 
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VALUE 

begin 



errnum, count; 



start 



DI 
SI 
ST «- 
4CDS 

ST * 
Dt «■ 
DS ♦• 
SI <- 

DS * 

SI «■ 



IF 



LIN 
LSTS 
LIN 
* 2 
LST 
LIN 
13 
L0C 

4 L 
«• ACC 

COMME 

DS * LIt 

FNR WRITERROR 

IF errortog T 

REG IN 
SPECTOG 

fRROrcou 

IF NOT L 

BEG 

EOT 

MOVE 

IF N 

end; 
comment print cardima 

ACCUMC1] 

WRjTeRRO 

IN 

IF NOT NOheADING T 

ERRORTog 

pUnchTog then 

BEGIN REAL Ti»T?.T 3 ,T4 



E»* A4CDS*2L!T W 

E«; si * si-a; 
e; ds * 2 wosi 
L?T "XX"); com 

seq; di * lstse 
F.i dt *• ni+8; c 

LIT "ERROR NUMB 

errnUm; DS * 3 

J T « mm l)J 

umj si * si +3; 

NT PLACE ALPHA 
«t it 



"); COMMENT CLEAR BUFFER; 
DS *wds; 

M F NT SET RIGHT MARGIN FLA 

Q; dt * oi-8; ds «• wds; 
ommfnt indent message; 
er •♦; 
dec; comment convert errn 

ds «• count chr? 
in buffer; 
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um; 



HEN 



% DO NOTHING IF WE SUPPRESS MSSGS, 



:- faLSe; 

NT 8s ERRORcOUNT+l; COMMENT COUNT ERRORS; 

1STFR THEN 

IN 

TLiNf(LIN,FcR*L 

(1,inf0[lastseq 
ohfading then d 



DIV 4»U,C46:2 3.MEDIUM,0); 
R0W,LASTSEQUENCEJ»LINfl2J) 

atime; writeline; 



GE 



if we are no 

«• Q} COMMEN 
R(FRRNUM,ACCUM[ 
F0rLASTSF<5R0W,L 

HEN writeline ; 
<■ fal s e; COMME 



t listing; 

t restore accumulator; 

1 ] , L J N [ * ] » Q , r 1 2 : 6 ] , 

astsfouencej); 



NT INHIBIT MESSAGES," 
LABEL L'LI'EXIT; 
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BEGIN DI - Lf 15(DS«-8LIt" ")J 

si * LOr P; Di*L; si*sl+ 5 ; skip 3 sr; 
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CDS*3 RrSFT;3(Ip Sr THFN DS*SfT E^Sf DS*ReSfT J SK IP 1 SB)); 

SI«-P; 

DI*Dl+2j 2(8 

(DS-3 HfSfT;3(IF Sb THEN DS + SfT eLS F DS*ReSfT ; SK I P 1 SB)); 

DS*LIT" ") END? 

STREAM PROCEDURE P2(L»P); VALUE ?i 

BEGtN DI+L5 DI *DI+26;dS<-lIT"0"; 

S]4-p; st«-si-p; skip isb; 

3 

(DS<-3 RfSfTJ3(TF Sb THEN DS«-SfT ELSe DS*ReSeT 5 SK I P 1 SB)); 

end; 

Real, stream procedure absu); value a; 

BFRiN di * loc abs; Si *a; ds* wds;di*di-8; ds-reset end; 

STREAM PROCEDURE B f TEDUST f X , N, t D » L ? Nf , COUNT ) ; VALUE ID, N, COUNT; 

begin local t.f.h' 

duloc f; suline; ds«-wds;ouf; 

SUloC iDjSI«.SI+j>;ds«. 6CHR; =j7(DS«. ? ljT" »)i 
SI * LOC COUnjT j S I *-S I +8 J 
DI *LOC H } DS <-WdS ; 
DI * LOC LINE ; SI * h; 
rI*LOC XjsKIP 2 SBJ 

If sp then 
begin si*x1 t*si5 

NC 

ni*Loc f; si*lin ej os*wDSmi*F» 

SI* LOc COUNT; St*SI+6; 
4 

CDS*3 RfSeT;3(IF SB THEN DS«-SfT eLSf DS«-ReSeT ; SK I P 1 SB)); 

DS-? LlT» »; si*count; s i *s I + 48; COUNUS i ; 

si<-t; 

6(2(8 
(DS*3 RfSeT;3(IF sb Then DS«-SfT else DS*ReSeT;SKIP 1 sb)); 
OS* LIT" ")! DS.-LIT" » ); 

di * loc line ; Si * H ; 

Sl*TlSi«.Si+48;T*Si)jCND ENd; 

BITFDUST(ERR0RC0UNT. 63 ,"PRT ",LlNE, 21); 
FOR Tl, ST E P 1 UNTIL 3l D R I TEDUST ( lN F [ T 1 , *] , 43, « T NfO 
BlTFDUSTf ELBATr*],13,"ELBAT ",LlNE,0)j 

B t TEDUSTf STACkHEADC*]»?i , "STHEAD". L I NE. 0) I 

Ti«.mkabS(errnUm)-i ; t 3 *. t i ; 

Li Tp*ABSCT3); 

IF T2.C33;15] = THEN BEGIN T3*T2 , C18 I 15 3 } 

IF T3=0 THEN. GO TO EXIT ELsE GO TO L END ; 
T^ * IF T2,[33jl5] < $12 THEN fL S E T2 , [ 33 j 15 J s T 2 C 30 : 1 ? 2 ] ; 
LljPiaiN[0]»Tl)MF Tl = T3 tHfN BEGIN IF t*0 THEN P2(L I N [0] , T4) j 
T1*t1"1? 

wRttfUNe; 

T3*T2,U8i15]jgO TO L END; 
H:=Tl-l; wRITfLiNe; 
GO TO LI l 
fxit» end ; 

end end flag; 

LABEL ENDOfITALL; 
COMMENT ERR. IS THF SaMf. AS FLAG EXCEPT T H AT IT MAKES AN ATTEMPT TO 
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PROCEOLlRF FRHfF 

BE 



DEFINE ERROR = 
COMMENT CHECKER 

UP 
PROCEDURE CHECK 

BF 



covfR 

MicOL 
RRNUM 
GIN F 

I 

IF 

IF 

DO 

ERR#J 
IS A 

levfL 
frcfl 

GIN 

IF 

IF 

IF 

IF ELBA 

FND CHE 
COMMENT GjT \S US 

GIVEN T 
INTEGER PROCEDURE GI 

GlT «. T 
COMMENT GNAT IS USFD 

IF The 

getspac 
integer procedure qn 

BEGIN 
REAL A? 



FROM 
ON, EN 
); VAL 
l.AGCER 

«• T - 1 * 

ERRNU 

Errnu 

IF ST 

ELCL A 

COMM 

SMALL 

ADORE 
BATWOR 

MODE 
GT1 * 
GT1 < 

TWORD. 

THEN B 

ckeH; 

ED TO 

HE LIN 

tcl); 

AKE(L) 
TO Ob 
ADDLES 
E TO 
AT(L)^ 



error situations 
d> or begin; 
ue fRRnum; integfR 
rnumj; 



by searching for a 
fRRnum; 



I := I/O; % SEGMENT TOO LARGE. 
I s- I/O! % ErrmAX EXCEEDED, 
THEN STMT UNTIL 
ELCLASS = SEMICOLON END ERRj 
A SYNONM FOR 



M ~ ?00 THEN 
M = 611 THEN 
EPI = BEGINV 
SS - ENDV OR 
ENT ERROR IS A SYNONM FOR ERRJ 

PROCEDURE THAT CHECKS TO SFE THAT THE 
SSlNfi CONVENTIONS ARE OBEYED} 

d)j valuf elbatword; Real elbatword; 

* 2 THEN 
ELBATWORD. LVL > FRSTLEVEL THEN 
SUBLEVEL THEN 

EGlN FLAfiClODl ERRORTOG *• TRUE END 

OBTAIN ThE INDEX TO ADDITIONAL INFORMATION 

k to the elbat word; 

valuf l; real lj 

.incr+l.link; 

ta?n the prt address of a given descriptor. 

S HAS NOT BEEN ASSIGNED. THFN IT USeS 
BTAIN THE PRT ADDRESS; 
VALUE l; REAL l* 



IF GNAT «-CA*TAKECL)).ADDrESS = 

THEN PUT(A8CGNAT5=GETsPACE(TRUE»L»LlNK+l))Cl6:37:in,L) 

END gnat; 
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Real. prOcfdurf ta 
take 

COMMeNt STUFFF 01 
DfSC 
STAC 

PROCEDURE STUFFFC 
BEGI 



COMMENT LOCAL 

PRpSE 

BOOLEAN PROCEDURE 

VALU 

beg i 



Comment passforma 
pass 

STAR 

PROCEDURF PASSFOR 

BEGI 



KfFRST 
FRST * 
ALS TH 
RlPTOR 

k; 

address); value address; integer address; 

N 
EMlTP 
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TAKEtFLBATtn.^INK + ELBATtn.lNcR); 

e f-Rfgister into the f-RegisteR FIELD OF A 

. 1HF DESCRIPTOR REMAINS ON THE TOP OF THF 
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10000 
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GMENT ** 

31000 T 
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33000 T 
LONG* 
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STUFFF) 
NOT A LABEL 



IS LOCAL TO OUR 



AlRf ADDRESS, LOD); 

EMlTN(5t2); 

EMiTD(33»l8,15) END 
IS USED TO SEE WHETHER OR 
NT CODE; 

localcelbatword); 
f elbatword? real elbatword; 
n if elbatword, lvl = level and 
not booleanfelbatword. formal) then 
local * true end local* 
t compiles code that passes a format, 
ed - the array referencing format table and the 
ting index, the routine handles superformats also} 
Mat; 

N INTEGER AoRES} 
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chfckeRcfLratcH); 

AORFS * eLratu J. address; 

IF BOOLEANcFUBATrn. FORMAL) 

then begin em i tvc adres ) ; adres <• adres-1 end 
else begin 

if tablfci) = superfrmtid 
then fmitl(takefrst) else emj tl( elbat r i] , t ncr ) 
end; 
if ta8leci) = superfrmtid 
then begin bana; i «- 1-1; 

EMlTO(SSP)! EMlTOcADD)! EMlTV(ADRES) END; 
EMlTPAIR(AnRFS»LOD) END PASSFORMATJ 

COMMENT STREAMWORnS ElTHFR RFSERVfS OR UNReSfRVES STREAM RESERVED 

WORDS - IT COMPLEMENTS ThEIR STATE? 
PROCEDURE STREAMWORDS; 

BEGIm GTj ♦• o; 

DO BEGIN 

INFO* 1 » GT1J. LlNK*STACKHEADtGT2*(T>!NF0[l»GTl]). ADDRESS 3 > 
STacKHEaDCGT2J «- T.LINK; 

GTl * GT 1 +2 j 

fNd u N T I L. BOOLrANCT. FORMAL) END STREAMwORQS* 



START 



40 



SAV? 



PROCEDURE PROGDrSCBLDR(PRTADR»SAV»SfZEiTYPE); 

VALUE PRTADR>SAV»SIZE»TYPE? 
INTEGrR PRTADR,SIZF»TYPEJ BOOLEAN 
BFGIN PRTADRoPRTAnR.nSJlQlJ 

if sav then begin prttPRtadri «• c if typf = ldes 
then size flse coradR) 

SSiZEr8J3 5 1°]XTYPE[l5A3J5]&3[6:46:2]; 

if type^ldes then coradr«-coradr+sizej 



else 



EnjD 
BEGIN 



COMMeN t 



PRT[PRTA0r]*0&0iSkADR[1bI33M5]&5IZEC8I38I101 

4TYpECl*43i5]&l[6U6i23l 
DISKADr*(sIZE+29) DlV 30+DISKaDR? 
END; 

end progdescrLdr; 
dotsvntax analysfs tHf syntax of a partial word designator, 
it rfports if an fRRor is found, it returns with thf 
literals involvfd; 
boolean procedure dotsyntaxcfirst, second) ; 
integer fiRst,Sfcond; 
begin 
label exit; 



START 



IF STEPI = FTELDID THEN % GET INFO FROM INFO 
BEGIN 

FIRST S= ELBATrl ].SBlTF? 

second ?= elbatc n .nbitf; 
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T 


0003 


0424! 





05255000 


T 


0003 


S0424 





05267000 


T 


0003 


0424! 


1 


05268000 


T 


0003! 


0424! 


1 


05?69000 


T 


0003 


0424! 


1 


05270000 


T 


0003 


10424! 


1 


05271000 


T 


0003 


0424! 


1 


05272000 


T 


0003 


04241 


1 


05273000 


T 


0003 


0424! 


1 


or segment 


********** 


41 


05273100 


C 


0041 


0000! 





05?73200 


c 


0041 


0001! 


2 


05273300 


c 


0041 


0001! 


3 


05?73400 


c 


0041 


0003! 


2 



c 
c 
c 
c 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 






c 



u 



O i 



o 
o 



10 

p 

o 
o 

o 
o 
o 
o 
o 
o 
o 
o 

o 



GO TO EXyT 

fnd 

ELSF 

TF ELCLaSS s 
IF STFPl = 
BEGIN 
FIRST : 
SECOND 



LFTrRKeT thfn 
FIELDID THEN 



COMMENT IF 



COMMENT IF 



= ei.batc ij.sbjtf; 

8 = ELBATt IJ.NBITF; 
IF STEpI = RTBRKET THEN 
GO TO EXIT; 

END 
EkSE 

IF FL.CLASS b uitno then 

TF STEPl a COLON THEN 
IF STEP! = LlTNO THEN 
IF STEP! = RTBRKfT THEN 
TESTS ARE PaSSfD THEN SYNTAX IS CORRECT; 
TF (FIRST * fUBATCI-3], ADDRESS) x 

(SECOND * rLBATCl-n.ADORESS)s*0 THEN 

if first + Second < 48 then 
tests are passed then ranges of literals are o.klj 

GO TO EXiT; 

err(lh); comment error if syntax or range 
dotsyntax 4. tRUf; exits end dotsyntax; 



XI 12- 
*U2" 
X112- 
X112- 
951 12« 
X1 12- 
X112* 

X112' 
X112' 
X112- 

5K11Z" 

M12" 
X112" 



fails; 



OF THE ITEM IN ELBATH] TO SFF 
LOWER OR LESS THAN OR EQUAL TO 



ROOLEAN PROCEDURE RA N GF( LOwfR* UPPER ) '> 

value loweR#uppeR; 
real loweR#uppeR; 

COMMENT RANfiE TeSTS ThE CLASS 
T T iS GREATFR THAN OR F^UAL TO 
UPPER AND SETS RANGE TO TRUE OR FALSE ACCORDINGLY, THE ITEMS 
CLASS MUST BE IN ELCLASS; 
RANGE*ELCLASS > LOWER AND ELCLASS < 
COMMENT GFT OBTAINS A SYLLABLE FROM EDOC, 

EMITTED? 
INTEGER PROCEDURE C,ET(L>* VAlUe LI REAL L> 
BEGIN 

INTEGER STREAM PROCEDURE GETSYLCW»S>; 



IF 



upper; 
the array 



INTO WHICH CODE IS 



41 



VALUE s; 
begin dj + loc getsyl; di * ni+6; 

Si * W; S| ,. S i+S; Si «. Si+S; DS * 2 CHR END; 
GET«-GETSY|,(C0DE( L DI V n* 1 ) • L. t ft6 S 7 I ) J END GET; 

Comment call switch performs the fi n al mess f getti n g a proper de- 
scriptor TO THE TOP OF THE STACK; 
PROCEDURE CALLsWlTCH(H); VALuE H; rEaL H; 

BFGIN FMlTVfGNAT(H)); fMIT0(PRTE)J EMItO(LOD) END CALLrWITCH; 



START 



4? 



05273500 


C 


0041 


S0005 


12 


05273600 


c 


0041 


10005*3 


05273700 


c 


0041 


S0005 


83 


05273800 


c 


0041 


J0005 


13 


05273900 


c 


0041 


80006 


51 


05?74000 


p 


0041 


50008 


10 


05274100 


c 


0041 


;00Q8 


' 1 


05274200 


c 


0041 


J 00 10 


n 


05274300 


c 


0041 


10012 


!0 


05274400 


c 


0041 


10013 


12 


05274500 


c 


0041 


10013 


13 


05274600 


c 


0041 


: 0013 


13 


05275000 


p 


0041 


J 001 3 


13 


05276000 


T 


0041 


J0015 


12 


05277000 


T 


0041 


«0016 


n 


05278000 


T 


0041 


50018 


10 


05279000 


T 


0041 


;ooi9 


13 


05280000 


T 


0041 


;ooi9 


13 


05281000 


T 


0041 


J0022 


10 


05282000 


T 


0041 


J0025 


2 


05283000 


T 


0041 


;0027 


2 


05284000 


T 


0041 


10027 


2 


05285000 


T 


0041 


i002> 


3 


05286000 


T 


0041 


JOO28 





S 32 LONG* 


NEXT 


SEG 


3 


05287000 


T 


0003 


50424! 


1 


05288000 


T 


0003 


$0424 


1 


05289000 


T 


0003 


50424 


1 


05290000 


T 


0003 


504241 


1 


05291000 


T 


0003 


« 04241 


1 


05292000 


T 


0003 


50424! 


1 


05293000 


T 


0003 


504241 


1 


05294000 


T 


0003 


50424! 


1 


05295000 


T 


0003 


(0424: 


1 


05296000 


T 


0003 


504241 


1 


05297000 


T 


0003 


50424! 


1 


05298000 


T 


0003 


504241 


1 


05299000 


T 


0003 


504241 


1 


05300000 


T 


0003 


504241 


1 


05301000 


T 


0003 


504241 


1 


05302000 


T 


0003 


504241 


1 


05303000 


T 


0003 


504241 


1 


05304000 


T 


0003 


504241 


1 


05305000 


T 


0003 


504291 


2 


05306000 


T 


0003 


50429! 


2 


05307000 


T 


0003 


504295 


2 


05308000 


T 


0003 


50429! 


2 


05309000 


T 


0003 


504295 


2 


OF SEGMENT 


********** 


42 


05310000 


T 


0042 


500005 





0531 1000 


T 


0042 


toooo; 


1 


05312000 


T 


0042 


500035 


2 


S 12 LONC 


• 


NEXT 


SEG 


3 


05313000 


T 


0003 


504295 


2 


05314000 


T 


0003 


504295 


2 


05315000 


T 


0003 


504295 


2 


05316000 


T 


0003 


50429s 


2 



L 

C 

c 

c 



c 



c 

c 
c 

> — - 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
to 

"to 
to 

to 

o 

o 

o 

O 

o 
o 

o 
o 
o 
o 
o 

o 



PROCEDURE 
BEGIN 
LABfL 



WRlTEPRTfPORS,N.r,S)> VAUUf pohs,n,gs; INTEGER P0RS,N,p,SJ 



EXIT? 



stRfam PROcrnuRF 



START 



FILUIT(LtN,P0Rs»CELL,N,I0)» 

value pors,cell,n; 



BF 
LO 
LA 

si 

IF 



ELSE 



MOj 



Ml i 
M2i 

M3i 
M4 j 
M5: 
M6: 

Mr $ 

X!T 



ELSE 



ST 
3( 

CO 

ds 
ci 

GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
Si 
01 

GO 
DI 
DI 

DI 
DI 
DI 
D! 
DI 

EN 
BLaNKF 
IF N = l 
IF N>1 



GIN 

CA|„ COU 

BEL MO* 

? s L0C P 

SC="P" 

BEGI 

BEGI 
DS5 = 
IF S 
CO UN 
DS! = 

end; 

S=L0c C 
IF Sc=» 
BEGI 
UNTS=TA 
s = 4 LIT 
: = C I + N ; 

mo; 

mi? 

M2J 
M3J 
MHl 

M5 5 

M6; 

M7; 

;=id; s 
5=01+7; 

XIT; 
:=CELL; 
s^CELL; 
D5!=36 

j=cfll; 

s=CFLL; 
8=CELL; 
' = C F L L » 
:=CFLL; 



NT? 
M 1 » M 2 

orS; 

THEN 
N DS:=3 CMri DS : sLIT" C" j END 
N 

5 CHR 
C>"6" 
T:=DI 
11 RE 



»M3»M4»M5'M6»M7*XIT; 

si;=si+3; dij=lin; * "prT" or "stack", 



; Ds:-LIt"C"; SI*=L0c CFLL; SI : = S I + 5 ; 

THfN nS?=2 LIT"F" M FLSF DS:=2 LlT"F+"? 
; Dl?=L0c CELL; Dl*=DI+4; 

set; discount; 



fll; siisSi+4; tally**4; % location, 
0" THEN % dont print leading zeroes, 

N SiisSi+i; TALLY!=TALLY+63 END ELSE JUMP OUT); 

lly; dsibcount chr? tally?=o; countistally; 
"> = " ! cell«=;di; % save our place. 



u=si + 2; du=loc count; 
ds: = chr; DttsCELi,* dsjscoUnT chr; 

DSs=19 LIT»*TEMPoRarY STORAGE*"; GO XI T? 

LIT"*LIST» LARELf OR SEGMENT DESCRIPTOR*"? GO XIT; 
DS!=27 LIT"*CASE STATEMENT DESCRIPTOR*"; GO XIT? 
0SJ=19 LIT"*F0RM A T descriptor*"? go XIT; 
0S*=24 LIT"*0UTER BLOCK DESCRIPTOR*"; GO XIT; 

ns*»20 liT"*segmfNt descriptor*"; go x it; 

DS?=1» LIT»*LABEL DESCRIPTOR*"; 



D FILLIT! 
T(H.LIN); 
THEN FlLLlT(LlN,PORS#GS,0,ACCUMri]) 

then fu.liTcLin,poRs,gs,o, infocn ,l tnkR.n ,l inkcj ) 











L 
C 


05317000 


T 


0003;0433 


12 




05318000 


T 


0003*0433 


12 


r- 


05319000 


T 


000310433 


S2 


L 


05320000 


T 


000310433 


JZ 




05321000 


T 


0003*0433 


12 


^ 


05322000 


T 


0003*0433 


•>2 


L. 


05323000 


T 


0003?0433 


!2 




05324000 


T 


0003*0433 


!2 


_, 


05325000 


T 


000310433 


12 


L 


05325010 


T 


0003»0433 


(2 




05325020 


T 


000310433 


(2 


C 


05325030 


T 


0003*0433 


12 


of segment 


********** 


43 




05325040 


T 


004310000 





.•—• 


05325050 


T 


0043*0000 


SO 


L. 


05325060 


T 


0043*0000 


10 




05325070 


T 


0043*0000 


SO 


^^ 


053P5080 


T 


0043*0000 


10 


L 


05325090 


T 


0043*0000 


10 




05325100 


T 


0043*0000 


;l 


_ 


05325110 


T 


0043J0001 


2 


L, 


05325120 


T 


0043J0002 


•1 




05325130 


T 


0043J0002 


■1 


r 


05325140 


T 


0043*0004 


10 


05325150 


T 


0043*0005 


3 




05325160 


T 


0043*0006 


'1 


^ 


05325170 


T 


0043*0007 


12 




05325180 


T 


0043*0007 


12 




05325190 


T 


0043*0007 


13 




05325200 


T 


0043*0008 


'1 


C 


05325210 


T 


0043*0011 


12 




05325220 


T 


0043*0012 







05325230 


T 


0043*0013 


2 


c 


05325240 


T 


0043*0013 


13 


_ 


05325250 


T 


0043*0014 





S~\ 


05325260 


T 


0043*0014 





L, 


05325270 


T 


0043*0014 


1 




05325280 


T 


0043*0014 


1 




05325290 


T 


0043*0015 


12 


c 


05325300 


T 


0043*0015 


'2 




05325310 


T 


0043*0015 


3 


c 


053?5320 


T 


0043*0015 


13 


05325330 


T 


0043*0016 


1 




05325340 


T 


0043*0018 


10 





05325350 


T 


0043*0018 


10 


1 


05325360 


T 


0043*0022 


10 




05325370 


T 


0043*00231 


2 


c 


05325380 


T 


0043*0028 





05325390 


T 


0043*0033 


2 




05325400 


T 


0043*00371 


2 


r~ i 


05325410 


T 


0043*0041 


3 


L, 


05325420 


T 


0043*0045 


2 




05325430 


T 


0043*0048 


'1 


F-' S 


05325440 


T 


0043*0048 


1 


C 


05325450 


T 


0043*0049 


2 




05325460 


T 


0043*0051 


2 


c 


05325470 


T 


0043*0055 


3 



o 
o 
o 
o 



-o 



JO 

1° 

o 
o 
o 






o 
o 
o 



o 
o 
o 



ELSE FILLlT(LlM.PORS»GS,ABS(N)»N)J 

if nOhfadiNr Then datime* writeline? 

END WRtTfPRTJ 



comment 



getspace makes assignments to variables and descriptors in 
the stack and prT, permanent tells whether it is a 

PERMANENTLY ASSlG N ED CELL (ALWAYS In PRT) OR NOT, NON 
PERMANENT CELLS ARE EITHER IN STACK OR PRT ACCORDING TO 
MODE. CARE IS TAKEN yO REUSE NON PERMANENT PRT CELLS; 
INTEGER PROCEDURE GETSPACEC PERMANENT * L) ; VALUE PERMaNENT»L; 

BOOLEAN PERMANENT) INTFGER It 
RFGIN LABFL LI»L2,eXtT; 



4 3 



"J 



STREAM PROCFDURE nO I T ( C. * A » T » S ) t VALUF C»AI 
BFGIN LOCAL N; 

ni*S» DS*8 LtT" " ■ " --------- 

S i «- 1 ; Si*si+2; 
Di«-Sj Si*L0C C 
S i*l I Sl*SI + 3J 

END J 

BOOLEAN M.Q; 



START 



Sj«.S; DS*9 WDSJ 
DIALOG N; D I *D I + 7 ; DS«-CrR* 

2 f D S 4- /4 DEC); 
OS*N ChRJ 



. INTEGER R0W,C0L»GS; 
IF NOTCSTREAMTOQ AND ( LeVEL>2 ) )THEN 

if stfpisRelop then 



begin 



if stePt>idMax 

THEN 

BEGIN 

IF elclass=adop 
Then 

IF ELBATI I].ADDRESS=SUBop 

THEN GS-FZERO ELSE GS«-512 



BEGIN 



ELSE 
GS«-0;I«-I"1 



END 
ELSE 

BEGIN 



GS«-0;I«-I"1 END! 
IF STFPI^LITNO THEN FLAGC51); 
*F ELRATtI],ADDRESS>5l2 THEN 
G5*GS+ELBAT[ 11, ADDRESS 



GS*1024; 




gs<--gs; 



BFGIN 

stepit; 



end; 

GS^-ABSfGS); 

end? Q«-GS<r>i2 or gs>io?3; 

Go To EXIT 

End el.se i-i-i ; 

IF MODE = OR PERMANENT 
THEN BEGIN 
IF PRTIMAX > 1023 THEN FLAGU48); 



gs*flbat[i 3 .adoress+ 

cif elbatn-u,address = subop 
then -qs else +gsj> 

rMn; 



05325480 


T 


0043*006352 


05325490 


T 


0043*0067*3 


05325500 


T 


0043«0079»2 


S 80 LONGt 


NEXT SEG 3 


05^26000 


T 


0003*043352 


053?7000 


T 


0003*0433*2 


05328000 


T 


0003*0433*2 


05329000 


T 


0003*0433*2 


05330000 


T 


0003*0433*2 


05331000 


T 


0003*0433*2 


05333000 


T 


0003*0433*2 


05334000 


T 


0003*0433*2 


OF SEGMENT 


********** 44 


05334100 


T 


0044*000050 


05334200 


T 


0044*0000*0 


05334300 


T 


004410000*0 


05334400 


T 


0044*0002*0 


05334500 


T 


004410003*2 


05334600 


T 


0044*0004*1 


05334700 


T 


0044*0005*3 


05343000 


T 


0044*0005*3 


05344000 


T 


0044*00055 3 


05344400 


T 


0044*0005*3 


05344500 


T 


0044*0007*3 


05344510 


T 


0044*000952 


05344520 


T 


0044*0009*3 


05344530 


T 


0044*0010*0 


05344540 


T 


0044?00i0*l 


05344550 


T 


0044*0011 *2 


05344560 


T 


0044*0011*2 


05344570 


T 


0044*0011*3 


0534458- 


T 


0044*0013*2 


05344590 


T 


0044*0015*3 


05344600 


T 


0044*0016*0 


05344610 


T 


0044*0018:1 


05344615 


T 


0044*0021*2 


05344620 


T 


0044*0023*3 


05344630 


T 


0044*0024*0 


05344640 


T 


0044*0025*3 


05344650 


T 


0044*0025*3 


05344660 


T 


0044*0028*0 


05344661 


T 


0044*002953 


05344662 


T 


0044*0031*3 


05344670 


T 


0044*0034*1 


05344680 


T 


0044*0037*3 


05344690 


T 


0044*0038*0 


05344700 


T 


0044*0038* 1 


05344710 


T 


0044*0039*3 


05344720 


T 


0044*0041 »2 


05344730 


T 


0044*0044*0 


05344740 


T 


0044*0044*0 


05344750 


T 


0044*0045*2 


05344760 


T 


0044*00^7*2 


05344770 


T 


0044*0047*3 


05345000 


T 


0044*0049*3 


05346000 


T 


0044*0050*0 


05347000 


T 


0044*0051*2 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



c 



o 
o 
o 
o 
o 
o 
o 
o 



^J 



u 



O 

o 

o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 

o 



if astOg then flag(505); 

PRTI * 
PRTIMaX*CgS^PRT|MaX)+1I 

IF STUFFTOG THEN IF (M*CLEVeL=1 AND KLASSF>19)) OR 

(LFVEL>3 AND EL8ATrl].CUASS=LABELlD) THEN BEGIN 
IF NOT M THFN 
DOlT(LABELlD,GvS,INFOtfELBAT[n),UiNKR, 
(FLBATr n.UlNKC+l)3»TwXAr03) ELSE 

DOlTfKL.ASSF»GS.fNFOt(LASTlNFO + l).L!NKR»£LASTlNFO + l),U!NKC 
»TWXAtO])» WRITE(STUFF»10»TWXA[*]) END! END 
ELSE REG IN 

IF STACKCTR > 767 THEN FLAGC149); 
5TACKCTR * (r,S *■ STACKCTR3 + 1* Q * FALSE? 
GO TO FXlT ENLW 

l2* tf gs > 512 then gs * gs+1024j 

q «. true; 

EXIT? GETSpACE «- GS; 

if gs>nestcTr and gs<fzero then 
if gs > 1023 then gs «- gsm024j 

IF pRToG THEN WrUEpRTUF Q THEN "PRT 
FND GETSPAfE? 



NESTCTR*GS+i f 

" ELSE "STACK l M,#B2DCGSm 



RfaL prOcfdure depthcd; value I 
rfgin real u»k»t»s»m. 



REAL I; 



IF T*-NFSTPRT[ J ]<0 THEN 

BEGIN DEPTH*CALLrT,[22;l3]-13,[35:l3]; 

IF NESTPRTtl3, [2*13=0 THEN NESTCUR-NESTCUR+1 ; 

NESTPRT[i],r2;n-i; 

END 
ELSE IF T,[9:i3]/0 THFN DEPTH-T . I 9 \ \ 3 3 
ELSE BEGIN M*0J N^STPRT [ i3 *-T; 

J*T, [22113] » K*C ALL [vl-11. [22»13]; 

FOR J*J STfP 1 UNTIL K DO 

IF S*-DEPTHCCALL[JJ)>M THEN M«-S| 
M*DEPTh*M+CaLU[T,C22» 13 ]-l], [35113]! 

IF NeSTcUR*0 THEN 

IF N E STPRT[I3.C2il3=0 THFN E^Sf 

BEGIN T*T&M[9?35{13]; NESTCUR-NESTCUR-1 END 

ELSE T*T&Mr9i35ll33l 

NESTPRTri3*T; 

end; 



End; 



PROCEDURE NESTSORTCL»U); VALUE L»U; REAL L»U> FORWARD; 
PROCEDURE SORTNEST; 

BEGIN ARRAY ACO* 143; 



REAL IfJ»K»Tj 
REAL P»Q? 
STREAM PROCEDURE NESTFORM C I f N » L» A ) ; 
BFGIN LOCAL SI 

DI*A! 15(DS«-8 L, I T " "); 
DI*L0C SI Dl*DI + 7; S I * L | 
Dl«-Al DI«-DH-i; A»DI! 
Dl«'Dl + 6{ OS* S chr; 
Dl*Aj S I *- L C N; DS*4 DEC, 



VALUE I»N; 



si*si+io> ds*chr; 



05348000 T 004410053 

05349000 T 0044*0054 

05350000 T 0044*0054 

05350100 T 0044*0057 

05350120 T 0044*0060 

05350140 T 0044*0063 

05350160 T 0044*0064 

05350180 T 0044*0067 

3 05350200 T 0044*0069 

05350300 T 0044*0074 

05369000 T 0044*0079 

05370000 T 0044*0080 

05371000 T 0044*0082 

05372000 T 0044*0084 

05373000 T 0044*0085 

05374000 T 0044*0087 

05375000 T 0044*0088 

05375100 T 0044*0089 

05376000 T 0044*0093 

05376100 T 0044*0095 

05378000 T 004410100 

44 IS 107 LONG. NEXT SEG 

05400000 T 0003*0433 

05401000 T 0003?0433 
START OF SEGMENT ********** 

05402000 T 0045*0000 

05402100 T 004510002 

05402200 T 0045*0007 

05402300 T 0045*0011 

05402400 T 0045*0014 

05403000 T 0045*0014 

05404000 T 0045*0016 

05405000 T 0045*0020 

05406000 T 0045*0026 

05407000 T 0045*0027 

05409000 T 0045*0034 

05409100 T 0045*0040 

05409200 T 0045*0041 

05409300 T 0045*0044 

05409400 T 0045*0047 

05409500 T 0045*0050 

05410000 T 0045*0051 

05411000 T 0045*0051 

45 IS 56 LONG* NEXT SEG 

05411100 T 0003*0433 

05412000 T 0003*0433 

05413000 T 0003*0433 
START OF SEGMENT ********** 

05414000 T 0046*0001 

05414100 T 0046*0001 

05415000 T 0046*0001 

05416000 T 0046*0001 

05417000 T 0046*0003 

05418000 T 0046*0005 

05419000 T 0046*0006 

05420000 T 004610007 

05421000 T 0046*0008 



2 
1 
1 
2 
1 
3 

2 
3 

3 



1 

2 
3 

3 
2 
3 


3 
2 
2 

45 


2 
2 




1 
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2 

3 

3 
3 

3 
2 
2 
2 
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3 
3 
3 
3 
2 
2 
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C 

c 
c 
c 
c 



c 



u 



r- 



c 






c 

c 
o 
o 
o 

c 



o 

O 

O 

-O 

lo 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 




nest 
for 

BEGI 



END? 
END? 



INKC3 » A) ; 

22:133; K«-cALLC J-11 • I 

fOK j*J STEP 1 UNTIL K DO 
BEGIN T*CALL[J3i 

T*NESTPRTCI3> 

NESTF0RM(32»DEPTHCI)»INF0CT.LINKR»T,UINKCJ»A); 

WRITECLINE»15»A[*3); 
END? 
WRITF(LINECDBLJ)} 



procedure nests0rt(l»u){ value l»u{ real l,u? 
bfgjn real i»j*k,m? 

Label again, top, bottom»exit* 
if l/u then 

BFGIN M* (U+L) nlV 2? 

mfstsort(L.M); 

NESTSORT(M+l,U)J 
I*K*L* J«-M+l$ 

AGAtN! if i>m then go to 

IF J>U THEN GO Tq 
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START 



TOP 



BOTTOM! 



EXIT« 



top; 

BOTTOM? 

GTi*. N ESTpRTCS0RTpRT[n,[33M53J,LINKJ 
GT2*nESTPRTCS0RTpRT[JJ.C33M5]J,LINKI 
IF lNF0[6TiaINKRtCGTl + l),LINKC],tl8*30J< 

lNF0CGT2fLlNKR»(GT2+i),LlNKC],Cl8«30 3 THEN 

go To Bottom; 

S0RTPRTCK3,C18:153*-S0RTPRTCJ3; 

J«-J + l? 

IF K«-K + 1<U 

SORTPRTCKJ 

1*1 + 1 J 

IF K*K+l<U 



THEN GO TO AGAIN ELSE 
C185153*S0RTPRT[I3; 



GO TO EXIT? 



THEN GO TO AGAIN ELSE 
FOR I-L STfP 1 UNTIL U DO 
S0RTPRT[I3«.S0RTPRT[I3,C18 8 153J 



GO TO EXITI 



END, 



END? 



COMMENT ROUTINES IN THIS SECTION COMPILE CODE FOR ALL EXPRESSIONS? 
COMMENT AEXP IS THE aRIThMfTtC EXPRESSION ROUTINE? 
PROCEDURE AFXP? 

BEGIN 

IF ELCLASS = IFV 

THEN BEGIN IF IFEXP * ATYPE THEN ERRC102) END 
ELSE BEGIN ARITHSEC? SlMPARlTH END 

END af.xp? 

COMMENT ARJTHSEC COMPILES FIRST PRIMARY IN AN ARITHMETIC EXPRESSION^ 
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O 


05422000 


T 


0046*0008*1 




05423000 


r 


0046*0009*2 


..-. 


05424000 


T 


0046J0009J3 


U 


05425000 


T 


0046*0011*2 




05425100 


T 


0046*0012*1 


„ 


05425200 


T 


0046»00i7»3 


(J 


05425300 


T 


0046?00l9?3 




05425400 


T 


0046»0021'2 


r"\ 


05426000 


T 


0046*0023*3 


LJ 


05427000 


T 


0046*0028:0 




05428000 


T 


0046*0032*0 


O 


05429000 


T 


0046*0037*3 


05430000 


T 


0046:0039*2 




05430500 


T 


0046*0042*0 


,_. 


05431000 


T 


0046*0043*3 


O 


05432000 


T 


0046*0048*0 




05433000 


T 


0046J0052J1 


■— . 


05434000 


T 


0046:0054*1 


O 


05435000 


T 


0046*0058: 1 




05436000 


T 


0046:0061*2 


/ \ 


S 66 LONG, 


NEXT SEG 3 


u 


05437000 


T 


0003?0433*2 




05438000 


T 


0003*0433*2 


^ 


OF SEGMENT 


********** 47 


u 


05439000 


T 


0047*0000*0 




05440000 


T 


0047*0000*0 


.• — ■■, 


05441000 


T 


0047*0000*1 


O 


05442000 


T 


0047*0003*2 




05443000 


T 


0047*0004!0 


..*■* V 


05444000 


T 


0047*0005*3 


O 


05445000 


T 


0047*0008*0 




05446000 


T 


0047»0009?2 


• ■""■"\ 


05447000 


T 


0047*0010* 1 


O 


05448000 


T 


0047*0013*2 




05449000 


T 


0047*0016?0 


O 


05450000 


T 


0047*0019*2 


05451000 


T 


0047*0022*1 




05452000 


T 


0047*0023*2 


O 


05453000 


T 


0047*0026*0 


05454000 


T 


0047*0027*3 




05455000 


T 


0047*0030*0 


O 


05456000 


T 


0047*0033*2 


05457000 


T 


0047*0034:1 




0545800Q 


T 


0047*0037*2 


O 


05459000 


T 


0047*0039*2 


05460000 


T 


0047*0043*3 




05461000 


T 


0047*0043*3 


_^ 


S 46 LONG* 


NEXT SEG 3 


U 


06000000 


T 


0003*0433*2 




06001000 


T 


0003*0433*2 




06002000 


T 


0003*0433*2 


u 


06003000 


T 


0003*0433*2 




06004000 


T 


0003*0433*2 




06005000 


T 


0003*0433*2 





06006000 


T 


0003*0436* 1 




06007000 


T 


0003*0438*0 


/■— \ 


06008000 


T 


0003*0438*0 


u 

C 



o 
o 
o 
o 



o 



o 
o 
o 



o 



o 
o 
o 
o 
o 
o 

o 



-P» AND -P*Q WHERE: P 



* SUB THEN PRIMARY 



In particular it handles ?> +p» 

AND Q ARE PRIMARIES? 
PROCEDURF ARITHSEC; 
BEGIN 

IF ELCLaSS s ADOP 
THEN BEGIN 

s t f: p i t ; 

IF ElBATr 1-1], ADDRESS 
else BFGIN 
primary; 

ENDTOG *• LiNKTOGJ 
LlNKTOr, *■ ENDTOG; 
FLSE PRIMARY END ARHHSEC; 
COMMENT StMPaRtTH COMPILES S T MPLE aRiTHMeTtC EXPRESSIONS ON THE 

ASSUMPTjON T H AT AN ARfTHMETiC PRIMARY HAS ALREADY BEEN 
COMPILED. IT AlSo HA N DlES THE CASE OF A CONCATENATE" 

where actualparapart caused the variable routine to 
compile only part of a primary, most of the work of 
sjmpar1th is done by arithcomp* an artifjal routine 

WHICH DOES THE HIERARCHY ANALYSIS USING RECURSION, 
ARlTHCOMP IS A SUBROUTINE ONLY TO GET THIS RECURSION} 
PROCEDURE SJMPARITH; 



EMITO(CHS); 
ENDTOG «- FALSE 



END END 



BEGIN 

WHILE 

DO 

WHILE 

ARlTHCOMP IS 



ELCLaSS = ampfrsand 

BEGIN STEPITJ PRIMARY; PARSE END? 

ELCLaSS > EQVOP DO ARlTHCOMP END; 

COMMENT ARlTHCOMP IS THE GUTS OF THE ARITHMETIC EXPRESSION ROUTINE 
ANALYSIS. IT CaLLS PRIMARY AT APPROPRIATE TIMES AND 
EMITS THE ARITHMETIC OPERATORS. THE HIERARCHY ANALYSIS 
IS OBTAINED BY RECURSION? 
PROCEDURE ariThcomp; 

Begin integer operator* opclass; 

DO BEGIN 

OPERATOR «- 1 I ELBATCI] C 3 6 : 1 7 * 1 3 ; 

COMMENT THIS SETS UP T H E OPfRATOR WHICH WILL BE EMITTED, THE HIGH 

ORDER T E N BITS OF THE OPERATOR ARE LOCATED IN [17110] 

of The elbat word; 
opclass * elcl'ass; 
stepit; primary; 

BEGIN 

WHILE OPCLASS < 
COMMENT THE CLASSES ARE ARRANGED 

EMIT(OPERATOR); 
EM IT (0); L «■ L-l; 
STACkcT «- 1; 
end; 

END UNTIL OPCLASS * ELCLASS 



START 



ELCLASS DO ARlTHCOMP; 
IN ORDER OF HIERARCHY; 



END ARlTHCOMP: 

INTFGFR PROCEDURE EXPRSS; BEGIN AEXP; EXPRSS «• ATYPE 
PROCEDURE POLISHERfEXPECT); VALUE FXPECT; REAL FXPECT; 
BEGIN LABFL EXjT; 



end; 



label el; 
rfal count, 
boolfan s; 
Real sss; 
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START 



Tl, T2J 
INTEGER Z; 



06009000 


T 


00031043B:0 


06010000 


T 


0003!0438?0 


06011000 


T 


000310438*0 


06012000 


T 


000310438S0 


06013000 


T 


000310438JQ 


06014000 


T 


00031043952 


06015000 


T 


000310440:0 


06016000 


T 


0003104401 1 


06017000 


T 


00031044312 


06018000 


T 


00031044410 


06021000 


T 


00031044411 


06022000 


T 


00031044610 


06023000 


T 


00031044713 


06024000 


T 


00031044912 


06025000 


T 


00031044912 


060?6000 


T 


0003!0449i2 


060P7000 


T 


00031044912 


06028000 


T 


0003»044912 


06029000 


T 


00031044912 


06030000 


T 


000310449:2 


06031000 


T 


00031044912 


06032000 


T 


00031044912 


06033000 


T 


00031044912 


06034000 


T 


00031044912 


06035000 


T 


00031044912 


06036000 


T 


00031045210 


06037000 


T 


00031045513 


06038000 


T 


00031045513 


06039000 


T 


00031045513 


06040000 


T 


000310455:3 


06041000 


T 


0003:0455:3 


06042000 


T 


00031045513 


OF SEGMENT 


********** 43 


06043000 


T 


00481000010 


06044000 


T 


00481000010 


06045000 


T 


00481000210 


06046000 


T 


00481000210 


06047000 


T 


0048»0002«0 


06048000 


T 


00481000210 


06049000 


T 


004810002»1 


06051000 


T 


004810003:3 


06052000 


T 


00431000313 


06053000 


T 


00431000610 


06054000 


T 


00481000610 


06054100 


T 


00481000712 


06054150 


T 


00431000912 


06054200 


T 


00481000913 


06055000 


T 


00481000913 


S 14 LONG 


t 


NEXT SEG 3 


06057000 


T 


00031045513 


06060000 


T 


00031045912 


06061000 


T 


00031045912 


of segment 


********** 49 


06061900 


T 


00491000010 


06062000 


T 


004910000:0 


06063000 


T 


00491000010 


06063500 


T 


004910000:0 



c 

c 

c 



c 



c 



c 






c 
o 
o 
o 
o 
o 
o 
o 
o 

C) 



u 



o 
o 
: h 

P 
b 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



stream procedure: writ 

begin dt * l.j ds 

si ♦ log c; 

si * loc n; 

END J 

sss* stackCTr; 

IF STEPI * LEFTpAREN 

Do BEGIN 

IF STEPI > OPERA 

BEGIN Tl * 
S * s 
COUNT 
IF ELC 
BEGIN 
FLSE B 



FOUTCC»NtL)I VALUE C.N; 

«• 2 Li T "S = "J 

Sj * S I + 7 ? DS «. chR* 

DS «• DECJ 
i> » ) J 



THEN Go TO EXIT; 



TORS 
CT2 
OR C 
* T2 

LASS 
IF T 
EGIN 

Tl * 
T2 «■ 
FOR 



END? 
END ELSE 
IF S 

IF T 

IF T 



IF T2 



THE 
* EL 
OUNT 
< C 14 

> 

1 * 

T2, 
T2, 

Tl «- 
EMIT 

8EGI 
TEPI 
BEGI 

2 =; 

C 36: 
2 = 
(T2* 
[39! 

= I 

BEGI 



N 

BATCH). ADDRESS; 

- T2, [ 1 1 ; 33 < OJ 
J23+COUNT-2? 

perator then 
then emitoct1) 

LINK+2; 
INCR+Tl; 

Tl STEP 1 UNTIL T2 DO 
CTAKECT1))* 



N T2 * ELCLASS} 

f LITNO THEN 
N ERRC5O0); GO TO EXIT FND5 
BITOP THEN pMlTCTHC 
42863) ELSE 

hexop then emiktu 

C I V 6)[36f45l3]&COT2x6) 
45:33) ELSE 
SOLATE THEN 
N T? * C»* 
IF STEPI * LITNO 

Then begin errcsoo); 
go to exit end? 



EMITCZ«-CCT2 + C-1)D1V 6-C DtV 
6+l)x512+C48-T2-C)M00 6x64+ 

37); 



end end; 

COUNT < OJ 



EN D 



FLJ 



stepit; 
s «- s or 
ELSf begin 

TF ELCLASS s LABELID THEN 
BFGIN T 1 S =2 ; 

GT4 «- TAKE(T2«-GIT(ELBAT[1])); 

PUT(L»T2)J 

IF GT4 = THEN GT4 * LJ 

IF (gT4S=L-gT4)0IV 4 > 128 THEN 

BEGIN GT4?=0;fLAG(50);fND; 
EMIT(GT4X4+Tl); 

stepit; 

END ELSE 
IF ELC|.,ASS * PERIOD THEN AEXP ELSE BEGIN 

T2*o; 

IF STEPI=PERI0D THEN 



06064000 


T 


004910000! 





06065000 


T 


0049500005 





06066000 


T 


0049500005 


1 


06067000 


T 


004950001' 


3 


06067500 


T 


004950002* 





06068000 


T 


0049500035 


2 


06068500 


T 


004950003! 


2 


06069000 


T 


0049500045 


1 


06070000 


T 


0049500065 





06071000 


T 


0049500075 


2 


06072000 


T 


0049500085 





06074000 


T 


004950010! 


1 


06075000 


T 


004950013! 


2 


06076000 


T 


004950015! 


3 


06077000 


T 


0049500165 





06078000 


T 


004950018! 





06079000 


T 


004950019! 


2 


06080000 


T 


004950021! 


2 


06081000 


T 


004950022! 


1 


06082000 


T 


004950024! 





06083000 


T 


004950027! 


3 


06084000 


T 


004950027! 


3 


06085000 


T 


004950028! 


1 


06086000 


T 


004950029! 


3 


06087000 


T 


004950031! 


3 


06088000 


T 


004950033! 


2 


06089000 


T 


004950034 


1 


06090000 


T 


004950036 


>i 


06091000 


T 


004950039 


3 


06092000 


T 


004950041 


2 


06093000 


T 


004950042 





06094000 


T 


004950043 


3 


06095000 


T 


004950044 


10 


06096000 


T 


004950045 


53 


06097000 


T 


004950046 


10 


06098000 


T 


004950046 


to 


06099000 


T 


004950046 


10 


06099100 


T 


004950046 


10 


06099200 


T 


004950048 


11 


06100000 


T 


004950052 


51 


06101000 


T 


004950054 


50 


06102000 


T 


004950054 


JO 


06103000 


T 


004950054 


!1 


06104000 


T 


004950056 


SO 


06104100 


T 


004950056 


:i 


06104200 


T 


004950057 


53 


06104300 


T 


004950058 


51 


06J04400 


T 


004950061 


53 


06104500 


T 


0049J0062 


51 


06104510 


T 


004950064 


»1 


061045?0 


T 


0049J0066 


' 1 


06104600 


T 


004950068 


»1 


06104700 


T 


004950070 


* 1 


06104800 


T 


004950071 


52 


06105000 


T 


004950071 


52 


06106000 


T 


004950073 


53 


06106100 


T 


0049J0074 


51 



o 

o 



; ^ 



o 



LJ 



c 



l ^ 



u 



c 
c 
c 

c 
c 
c 
c 

c 



o 



o 

o 
o 
o 

:-0 

G 

o 

to 

n 

•'O 

o 

o 



u 
O 

o 
o 
o 
o 
o 
o 

o 



exit; 



BEGIN T2*li STEPIT END; 
IF ELCLASS>IDMAX THEN 

BEGIN ERRC500); GO TO EXIT END? 
IF ELCLASS = LA8EL.ID THEN 

BEGIN Tl «- Of GO TO EL END? 
IF Tl * EL6ATCI], ADDRESS = THEN 

BFGIN ERR(IOO); GO TO EXIT ENDJ 
EMI TUcTl >; 

if Ti>i023 Then 

IF T2cOThEN FLAGC500) 

FLSE emitocprte); 
step it; 
fNo; count * count+i; 

fNqJ 
END UNTIL ELCLASS * COMMA* 
IF ELCLASS * RTpAREN THEN 

BEGIN ERRC1O4); GO TO EXjT END; 
STEPIT? 
IF FAl.SE THEN 

begin count * count-expect j 

wrueoutc if count < q then "-" else 

if count = then " " else " + "» 
absccount),linco])j 
writeline; 
end; 

STACKCTR i- SSS; END} 



PROCEDURE PRIMaRYj 
BFGIN LABEL 

Ll. L2. 

Ll I. L.12 

L21f L22 

L31» L32 

SWITCH S 
Lit L2, 
Lll» L12 
U.21 • L22 
L31» L32 
LABEL EX 
GO To S[ 
IF ELCLA 
BEG 



L3. 

» L. 13 

» L23 

» L33 

<- 

L3, 
. L13 
» L23 
* L33 
IT»RP 
ELCLA 
SS s 
IN ST 

IF 

STE 
GO 



LIO, 

L20. 
L30. 



L4, L5» L6, L7. IS, L9. LlO, 

» L14. Lt5, H6» Ll7» LIB. Ll9, L20. 

, L24. L25. L26. L27. L28, L29. L30, 

. L3A# L35. L36. L37» L38. L39; 

L«t L5» L6. L7» L8. L9. 

* L14. Ll5» L16. L17. LlB. Ll9. 

. L24» L25. L26. L27. L28» L29» 

. L34. L35. L36» L37. L38. L39J 

»loot»lamper; 

SS3 ; 

LFTBRKET THEN 
EPlT; VARIABLE(FL); 

elclass * rtbrket then 

begin errc118); go to exit end? 
pit; 

TO LDOT; 



IF 



end; 

ELCLASS 
BEGIN 



ST 
EM I 
GO 



notop then 

EPlTj PRIMARY; 
TLNGj EMjT(O); L + L- 
TO exit; 



i; 



IF 



L18L2 
L32J 



end; 

ELCLASS 



UNKNOWNlo THEN ERR(lOO)} 
5|,3:L4:L5:L6jL8:L9!LlO:Ll2'Ll3;Ll6JLl7!L20?L21!L24JL25iL28.'L29: 

ERRC103); GO TO EXIT; 



06 


L06200 


T 


0049800758 3 


06 


06300 


T 


0049 


!007782 


06 


107000 


T 


0049 


(007880 


06 


107100 


T 


0049 


100798 3 


06 


107200 


T 


0049 


100808 1 


06 


108000 


T 


0049 


I0082«0 


06 


109000 


T 


0049 


8008480 


06 


110000 


T 


0049 


1008680 


06 


110100 


T 


0049 


(008681 


06 


11.0200 


T 


0049 


1008783 


06 


H0300 


T 


0049 


8008983 


06 


11000 


T 


0049 


(009182 


06 


112000 


T 


0049 


(009183 


06' 


113000 


T 


0049 


(009382 


06' 


14000 


T 


0049 


(009382 


06' 


15000 


T 


0049 


(009480 


06« 


116000 


T 


0049 


(009582 


06' 


17000 


T 


0049 


(0096*1 


06' 


118000 


T 


0049 


(009782 


06' 


19000 


T 


0049 


1009783 


061 


20000 


T 


0049 


(009982 


061 


.21000 


T 


0049 


(010183 


06' 


22000 


T 


0049 


I0103S3 


061 


23000 


T 


0049 


(010582 


061 


124000 


T 


0049 


(011582 


061 


125000 


T 


0049 


I0H582 


49 IS 120 LONG. 


NEXT { 


>EG 3 


06] 


126000 


T 


0003 


(045982 


06' 


27000 


T 


0003 


S045982 


START OF SE 


IGMENT 


********** 50 


06: 


128000 


T 


0050 


1000080 


061 


29000 


T 


0050 


000080 


065 


[30000 


T 


0050 


(000080 


061 


L31000 


T 


0050 


1000080 


061 


132000 


T 


0050 


000080 


061 


133000 


T 


0050 


'000281 


061 


34000 


T 


0050 


000281 


06] 


35000 


T 


00501 


00028 1 


06< 


136000 


T 


0050 


0002J 1 


061 


37000 


T 


0050 


(002281 


06] 


38000 


T 


0050 


-002281 


06] 


139000 


T 


0050 


(002582 


06] 


40000 


T 


0050 


(002583 


061 


41000 


T 


0050 


(002783 


061 


142000 


T 


0050 


002880 


06] 


4 3000 


T 


0050 


(003080 


06] 


44000 


T 


0050 


'003081 


06] 


.45000 


T 


0050 


003182 


061 


46000 


T 


00501 


0031*2 


06] 


47000 


T 


0050 


003183 


06] 


48000 


T 


00501 


003382 


06] 


149000 


T 


0050 


003583 


061 


150000 


T 


0050! 


OO368O 


061 


51000 


T 


0050! 


003680 


061 


52000 


T 


0050 


003880 


061 


53000 


T 


0050! 


003982 


061 


54000 


T 


00508003982 



c 

c 
c 
c 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

L 



c 



o 
o 

o 
o 

to 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 



L7; 

subhand(fausf)? go to loot; 
i.n ; 

IMPFUN! STACKCT ♦ STACKCT-U r,0 TO LdOt; 
L 1 4 5 L 1 5 « 

stRmprocstmt; go to loot; 

L 1 B 1 L 1 9 I 

PROCSTMT(FALSE); GO To LOOT; 
L?2 ' L23 : L26 8 L27!L30«l3i * 

VARIABLE(FP); GO TO LAMPER' 
L33SL35* 

EMIT(0*ELBATtI] C 36 : 1 7 « 10 ] ) ; STEPITJ GO TO LAMPER; 
L345L36? 

EMITNUM(C); STEPITJ GO TO LAMPER) 
L36I 

POLISHFRCU; GO TO LDOT; 
L39: 

STFPTt; PRIMARY; STACKCT * STACKcT-lJ 

FMlTO(LOD)? GO TO LOOT* 
L37 5 

STEP I t; aexpj 

STACKCT <■ STACKcT-lJ 

IF ELCLASS / RTPAREN THEN 

BEGIN ERR(l04>; GO TO EXlT END? 

stePjt; 
ldotsoot; 

LAMPER? 

stackct «- stackct +1? 

while el.cl.ass * ampersand do 

begin stepit; primary; parse end; 
exit: end primary; 

PROCEDURE IMPFtjN; 

RFGIN REAL T1>t2; 

Tl *• (T2 «- ELBATClI). ADDRESS; 

PaNaj 

IF Tl 5* ThfN FMfTOCTl) 
FLSE BEGIN 

Tl * T2,LlNK+T2,iNcR+i; 
T? «- T2.LINK + 2; 

for t2 <- 12 step 1 until tl do em i t c t ake c t2 ) 5 i 

end; 

END? 

PROCEDURE SUBHAND(FROM)J VALUE FROM? BOOLEAN FROM; 
BFGJN LABFL EXjT; 

Real tu 
Ti * takefrst; 

if elclass * subid and from then 
begin if stepi * assignop then 

BEGIN F L AG(s03); Go To EXIT EN05 

step it; 

AEXP; 
EMIT0(X C H); 

GO to exit; 
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061 
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0051500001 
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005150002. 
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06] 
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005150005 
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190000 


T 


005150007 


3 
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91000 


T 


005150009 


3 
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192000 


T 


005150014 


1 


06] 


93000 


T 


005150014! 
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7 LONG* 
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06] 
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T 


000350459. 
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T 


0003J0459! 
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T 
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0052*0000! 
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005250001 
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005250003! 
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005250005! 
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T 
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EXITS 



fNd? 

FMITLCCL + 6) oiV 4- C T 1 . t 24 $ 1 2 3 -1 ) DIV 4); 

emitb(bbw»bumpl,t1,[36i123)i 
stePi t; 

ADJUST? 
FND SUBHANqJ 



06 
06 
06 
06 
06 
06 



COMMENT IFEXP c0MPjL.ES CONDITIONAL EXPRESSIONS. IT REPORTS THE TYPE 

OF expressions as exprss reports; 

INTEGER PR0CFDURE I FEXp; 

BEGIN INTEGER TYPE » THENBRANCH • ELSEBRANCH? 

jFCLAUSf; 
STACKCT «. 0; 

THENBRANCH «- BUMPL; 
COMMENT SAVE L FOR L^TER FIXUP? 

IFEXp «- TYpE * EXPRSS? COMMENT COMPILE 1ST EXPRSS; 
STACKCT «■ 0? 

EL.SEBRANCH «• BUMpL? 

EM I TBCBFC* THENBRANCH* L)J 

IE ELCLASS j* ELSeV THEN ERRC155) ELSE BEGI! 

STEPIT} 
AEXPj STACKCT *■ 1} 

comment this compiles proper type second e! 
emitbcbfwfelsebrancH'D; 

FMITC1); L «- L-l? 
COMMENT THIS IS USED BY EMITLNG TO CLEANUP CODE, 
R00SFC» B00C0MP, AND RELATION? 
END END IFEXP) 



52 IS 



START 



N 

:xprssi 

compare with 



06 
06 
06 
06 
OF S 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 



COMMENT PARSE COMPILES CODE FOR THE CONCATENATE? 
PROCEDURE PARSf? 

begin integer ftRst»sfcond»thtRd? 
label exjt,nextchk? 

IF ELCLASS - FIELQID ThEN 
BEGIN 

FIRST != ELBAT[I].SBITF? 

SECOND 5 = 48 - (THIRD s= ELBAT r I ] ,NB iTF) ? 

GO To nEXTCHK? 

End 

ELSE 

IE ELCLASS = LFTBRKET THEN 
IF STEpI = FIELDID THEN 
BEGIN 

FIRST {= ELBATCI3.SBITF? 

SECOND != 48 - (THIRD j= ELBATC I 3 , NB I TF ) ? 
IF STEPI * RTBRKET THEN 
BEGIN 

ERR(94)? 

GO TO exit; 

END! 
GO TO NFXTCHK? 

END 
ELSE 

IF ELCLASS - LITNO T H EN 

IF STEPI = COLON THEN 
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START 



8107- 
8112- 
8112- 
8112- 
2112- 
8112- 
XI 12- 
8112- 

8112- 

* 1 12- 

8112- 

8112- 
8112- 
8112- 
8112- 

X112- 

8112- 
8112- 
8112- 
8112* 
8112- 



06 
06 
06 
OF S 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
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205000 
206000 
207000 
208000 
208500 
209000 
19 LON 
292000 
293000 
P94000 
295000 
EGMENT 
296000 
296500 
P97000 
298000 
299000 
299500 
300000 
301000 
302000 
303000 
305000 
306000 
307000 
308000 
309000 
310000 
311000 
19 LON 
312000 
313000 
314000 
EGMENT 
315000 
315100 
315200 
315300 
315400 
315500 
315600 
315700 
316000 
316100 
316200 
316300 
316400 
316500 
316600 
316700 
316800 
316900 
317000 
317100 
317200 
317300 
318000 



T 
T 
T 
T 
T 
T 



0052 
0052 
0052 
0052 
0052 
0052 



G» NEXT 

T 0003 

T 0003 

T 0003 

T 0003 

******* 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
Gi 
T 
T 
T 



0053 
0053 
0053 
0053 
0053 
0053 
0053 
0053 
0053 
0053 
0053 
0053 
0053 
0053 
0053 
0053 
0053 
NEXT 
0003 
0003 
0003 
******* 

P 0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 



50007 
$0007 
10011 
?0014 
;0014 
I 00l5 

SEG 
J0459 

J0459 
10459 

J0459 

*** 

JOOOO 
10000 
$0001 
10003 
10003 
J0004 
S0005 
J0007 
5000B 
S0010 

* 0011 

10012 

$0012 

J 00 13 

$0015 

«0015 

: 0015 

SEG 

J0459 

$0459 

10459 

*** 

JOOOO 
80000 

soooo 
$0001 

'0002 
$0005 
50005 
$0005 
50005 
$0007 
$0008 
50009 
$0010 
$0013 
$0014 
$0014 
$0015 
50015 
$0015 
50016 
$0016 
50016 
5 0017 



3 
3 
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2 
2 
2 
2 
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1 
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1 
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2 
1 
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1 
2 
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o 
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IF STEPT = LlTNO THEN 
IF STEPl = RTRRKET THEN ?! WE WILL TAKE CARE Of THF 
IF (FIRST 5 = ELnATCI-33. ADDRESS) x % 

(Third s = elbatci-i], address) * o then % 

BEGIN % 

second s= 48 - third* % source is right just 



RES 
107- 
107- 
107- 

1 07- 

107- 
107- 
107- 
107- 



gq to nextchk; % 

END % 

ELSE % BAD BITS, FALL THROUGH TO ERROR, 3! 
ELSE % MAYBE A COLON. 3! 

IF ELCLASS » COLON THEN % % 

IF STEPI = LITNO THEN 
IF STEPI = RTBRKET THEN 
COMMENT IF TEST ARE PASSED THEN SYNTAX IS CORRECT? 

IF (FIRST «• ELBAT[I-5], ADDRESS) x 
(SECOND «- ELBATCI-3], ADDRESS) x 
(THIRD * ELBAT[I-n, ADDRESS) * THEN 
NEXTCHK! IF FIRST + THTRO < 48 THEN % SO FAR SO GOOD, ?107- 

JF SEC0ND+ THIRD < 48 THEN 
COMMENT IF TEST ARE PASSED THEN RANGES OF LITERALS ARE O.K.; 

BEGIN 
. . - STEP I T; 

EMiTDf SfC0ND» FIRST, THIRD); 
STACKCT «- l; 

go to fXit end; 
eRR(H3); comment error if syntax or range fails; 
exit' end parse; 

comment dot compiles code for partjal word designators, except for 
Those cases handled by the variable routine; 

procedure dot; 

begin integer fl rst, sfcond; label exit; 

IF ELCLASS s PERIOD THEN BEGIN 

IF DOTSYNTAXCF IRST, SECOND) THEN GO TO EXIT; 
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06319000 T 
06320000 P 
06320100 C 
06320200 C 
06320300 c 
063?0400 C 
06320500 C 
06320600 C 
06320700 C 
06320800 C 
06320900 C 
06321000 T 
06322000 T 
06323000 T 
06324000 T 
06325000 T 
06326000 T 
06327000 P 
06328000 T 
06329000 T 
06330000 T 
06331000 T 
06332000 T 
06332500 T 
06333000 T 
06334000 T 
06335000 T 
5/4 LONG, 



EMITKO, FIRST, SfCOND)} 

stepit; 

exits FND END dot; 

proceddRf tfcLause; 

bfgin stepit; bfxp; 

IF ELCLASS * THENV THEN ERR(116)ELSE STEPlT END IFCLAUS; 

comment pana compiles the construct: (<arlt. exp,>); 
procedure pana; 

begin 
if stepi * leftparen then err(l05) 

ELSE BEGIN STEPIT; AeXPJ IF ELCLASS * RTPAREN THEN 
ERRC104) ELSE STEPIT END END PANA; 
COMMENT BANA COMPILES THE CONSTRUCT: [<ARITH, EXP,>]; 
PROCEDURE BANA; 

BEGIN 
IF STEPI * LFTBRKET THEN ERR(H7) 

FL.SE BEGIN STEPIT; AEXpj IF ELCLASS * RTBRKET THEN 
ERR(llO) ELSE STEPIT END END BANA ; 
COMMENT THIS SECTION CONTAINS THE STATEMENT ROUTINES; 



06336000 T 

06337000 T 

06338000 T 

06339000 T 

START OF SEGMENT ** 

06340000 T 

06341000 T 

06342000 T 

06343000 T 

06344000 T 

06345000 T 

06346000 T 
55 IS 8 LONG, 



06A0900Q 
06410000 
0641 1000 
06412000 
06413000 
06414000 
06415000 
064)6000 
06417000 
06418000 
06419000 
06420000 
06421000 
06422000 
06423000 
07000000 
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0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
NEXT 
0003 
0003 
0003 

0003 

***** 

0055 
0055 
0055 
0055 
0055 
0055 
0055 
NEXT 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



50019 
10020 
S0022 
50024 
'0027 
:0027 
:0029 
50029 
50029 
S0029 
50030 
J0031 
50032 
50034 
50034 
50036 
50039 

50041 

50044 

50046 

50046 

50046 

50047 

5 0048 

50049 

50049 

50050 

SEG 

50459 

50459 

50459 

50459 

*** 

5 0000 

50001 

50003 

50003 

50003 

50004 

50004 

SEG 

50459 

50459 

50461 

50464 

50464 

50464 

50464 

50466 

50469 

50472 

J0472 

50472 

50472 

50473 

50476 

50479 



2 
1 

1 
2 
3 
2 
3 
3 
3 

2 

1 


1 
2 
3 




1 
2 

2 
3 


■3 
2 
2 
2 
2 

55 

2 
2 
2 
2 

1 

3 
2 
2 
2 





1 

3 




3 
1 
2 



O 
C 
C 
C 

c 
c 
c 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
c 
o 
o 
o 



(J 



o 
o 
o 
o 

-O 
iO 

jo 

:: c 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 

o 



COMMENT COMPOUNDTAIL COMPILES COMPoUNDTA I LS . IT ALSO ELIMINATES 

COMMENTS FOLLOWING ENDS, AFTER ANY ERROR. ERROR MESSAGES 
ARE SUPPRESSED, COMPOUNDTAIL IS PARTIALLY RESPONSIBLE 
FOR RFSTORING THE ABILITY TO WRITE ERROR MESSAGES.. SOMF 
CARE IS ALSO TAKEN TO PREVENT READING BEYOND THE "END."} 
PROCEDURE COMPOUNDTAIL; 

BEGIN LABEL. ANOTHER' 



- BEGINcTR+i; 
COMMENT ALLOW 



THFN STREAMSTMT ELSE 
SEMICOLON THEN GO TO 
ENDV 

GO TO ANOTHER END? 



ERROR MESSAGES; 

STMT; 
ANOTHER; 



15 GO ANOTHER 



i * i-1j beginctr 
- anothfr' errortog «- trues 

stepit; 

IF STREAMTQG 
IF FLCLASS s 
IF ELCLASS t 

then begin 
ERRU19); 
endtog*true; 
no stopdefine^-TrUe until 

stepi<enov and elclass>untilv 
or not endtog; 
endtog*falsei 

if beginctr *. beglnctr-i * eqv elclass = period 
then begin 

IF BEGINCTR = THEN 
BEGIN FLAGC143); BEGINCTR 
FLAG (1?0); 

fcrs= (lcrj=mkabsccbuff[9]))-9; 

if lister then printcard; 
fcrs = (lcrs=mkabS(Tbuff[9]))-9 end; 

if elclass - period then 

BEGIN 

GTS «- "ND?END."& M E ,, ri«43!5]J 

M0VE(1»GT5»CBUFF[0]); 

LASTUSED«-4; 

ELBAlrl-I-2] -SPECIALC20]; 

elclass «- Semicolon end 
end compoundtail? 

Real axnum; 

PROCEDURE ACTUALPARAPART(SBIT, INDEX); VALUE SBjT.iNDEX; 
BOOLEAN SBIT; REAL INDEX; 
BEGIN LABEL EX I T, COMMON* ANOTHER* POL? 

REAL PCTR,SCLASS*ACLASS; 
STREAM PROCEDURE WRI TEAX ( LI NE» ACCUm* N* SEQ ) } VALUE N; 
BEGIN DI * LINE? 15CDS «• 8 LIT " "); 

di «- line; si * seo; si «• Sj-i6; ds «- wds; 

Dl *■ Dl + 4; DS «• 20 LIT "ACCIDENTAL ENTRY AT 

si *• accUM; si «- si + 3; ds «- n chR; 
si «■ seq; di «• seq; di «- di-16; ds *• wds; 



start 



end; 

%104« 

*104« 

U04« 
*104« 



56 



START 



fnd. 



another 



boolfan vbit.idbit; 

PCTR * i; 

ACLASS «- STEPl«0[/»7 J/|7:i3* 
STACKCT «■ 0; 

GT1 * TAKE(INDEX+PCTR); 

VBIT «- BOOLEANCGTj ,V0); 
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52 


07003000 


T 


000350479 


52 


07004000 


T 


000350479 


52 


07005000 


T 


000350479 


52 


07006000 


T 


000350479 


52 


07007000 


T 


000350479 
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070?0000 


T 


005650015 


• 2 


070^1000 


T 


005650015 


3 


07032000 


T 


005650017 


3 


07023000 


T 


0056:0019 


2 


07024000 


T 


005650019 
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07025020 


C 


005650026 
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C 
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T 


005650045' 
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T 


005650045! 
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07028000 


T 


0056:0046! 





07029000 


T 


0056500481 
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T 
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07032000 


T 


005650052! 
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07033000 


T 


005650053' 
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0003504795 
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0057500005 
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005750000! 





07038200 


T 


00575O0OOJ 
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T 


0057500025 
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0057500035 
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POL} 



ScLASS «- GTl,CLASSS0[47M7;n; 

ir vriT then begin aexp; go to common end; 
if sb?t then sclass *■ nameid; 

IDBlT 4. BOOID < ACUASS AND AClASS < LABEL ID* 
IF SCLASS = NAMEID THEN 
BEGIN 

if idbit then variablecfd 

ELSE 

IF ELCLASS = POLISHV THEN POL.ISHERC1) 
ELSE ERRCIF ELCLASS=0 THEN ELSE 12 3 3 5 

go to common; 



end; 
if sclass 

IF AC 

ELSE 
IF SCLASS 
BFGIN 



= REALARRAYiD THEN 

lass = realarrayid then 
begin variablecfd; go to 
go to pol; 

t REALID THFN 
FLAG(503); 

aexp; 

errortog * true; 

go to common; 



COMMON END 



GT1 «- 
IF GT 



end; 
tabl 
1 = c 

BFGIN 



EMITO 
ScLAS 

adjus 

AC.LAS 
IF ID 



ec i + n; 

OMMA OR GTl = RTPAREN THEN 

if idbit Then 

BEGIN IF ACLASS s REALID AND 

BOOLE ANCEUBATC I ]. FORMAL) THEN. BEG IN 
CHECKER CELBATCI]); 

EmitpaircelbaT[ i], address, lod); 
stepit; end 

el.se variablecfd; 
go to common end; 
if elclass < strngcon and elclass > labelid 
then begin primary; go to common end; 
end; 

cnop); emito(nop); 
s - l; 

T> 

S * L 
RIT T 
BEGIN 



.C36M03; 

HEN 

variablecfd; 
if el.cL.ass < ampersand 



THEN GO TO COMMON; 



sjmparith; 

END ELSE AeXP; 

if lister Then 

BEGIN ACCUMtll * Q* 

WRiTEAX(LlNrO],ACCUM[l]»Q.rl2»6]i 

infO[lastseqrow,lastsequence]); 
wrjteline; 
end; 
axnum «- axnum + i; 

EMlTOfRTS); 

EMlTBfBFW,SCLASS»L); 
EMlTNUMf ACLASS); 

EMlTPAIRCTAKECPROlNFO),ADDRESS»LOD)J 
EM I TOC I NX); 



070/»4000 
07045000 
07046000 
07047000 
07048000 
07049000 
07050000 
07051000 
07052000 
07053000 
07054000 
07055000 
07056000 
07057000 
07058000 
07059000 
07060000 
07061000 
07062000 
07063000 
07064000 
07065000 
07066000 
07067000 
07068000 
07069000 
07070000 
07070500 
07071000 
07072000 
07073000 
07074000 
07075000 
07076000 
07077000 
07078000 
07079000 
07080000 
07081000 
07082000 
07083000 
07084000 
07084500 
07085000 
07086000 
07086100 
07086200 
07086300 
07086400 
07086500 
07086600 
07086700 
07087000 
07088000 
07089000 
07090000 
07091000 



0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
005? 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 
0057 



0015! 

00i8! 

0019 i 

0021 

0023! 

0024 

0024 

0025: 

0026! 

0028: 

0032 

0032 ; 

0032: 

0033: 

0034 

0036: 

0036: 

0037 

0038 

0039 

0039: 

0040 

OO4O: 

0042: 

0043: 

0044 

0045: 

0047 

0048 

0050 

0050 

0052: 

0052: 

0053! 

0055! 

0055 

0057 

0058 

0058: 

0059: 

0060: 

0061 

0062 ; 

0062: 

0063: 

0064 : 

0064 

0066: 

0068: 

0069: 

0079: 

0079: 

0081 

0081 

0083: 

0083: 

0085: 



1 • 



c 



n 



C 



C 
C 
C 
C 
C 

c 

c 



c 
c 



c 

o 
o 



o 



o 

o 

o 
o 

]o 
£ o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



EMITN(512)J 

EM ITDC33» IB, 15); 

EM I TC o ) ; 

EMITD(5.5,1); 
COMMON: PcTR * PCTR+15 

IF ELcUSS s COMMA THfN GO TO ANOTHER 
IF ELCLASS * RTPAREN THEN 

BEGIN ERR(l29)> r,0 TO 
IF TAKE( INDEX). NODIMPART+I 

BEGIN ERRCi28)» GO TO 
STEPlTJ 
STACKCT *■ 0; 
END ACTUAL PARAPART; 



extt fnd; 
* pctr then 
exit fnd; 



exit? 



PROCEDURE PROCSTMTcFROM); VAlUf FROM? BOOLEAN FROMJ 
BFGJN 

Real hole, address; 



OK 5 



COMMENT 



COMMENT 



EXITS 



END 



Real j; 

LABEL E 

scatter 

HOLE*- E 
ADDRESS 
IF NEST 
IF MODE 
IF TABL. 
BEGIN F 

CA 

end; 
checkfR 

IF ELCL 
IF NOT 
IF TABL 

BE 

CALL VAR 

IF ELCL 

TH 
IT IS P 

stepit; 

EMITOCM 

IF ELCL 

TH 

EL 

EMITVCA 

PROCSTM 



LABEL Ok; 

xit; 
elbatj 

LBATcn; 

* addrsf; 
og then 
*o then 

ECI+l)*ASSlGNOP THEN 
OR J^CALLINFO STEP 1 UNTIL 
IF CALLrJ]=ADDRESS THEN 
LlrCALLXt-CALLX+n* ADDRESS; 



CALLX 
GO TO 



DO 
OK. 



(HOLE); 

ass t procid Then 

formalf thfn 

eci+1) = assignop then 

gin variable(2-real(fr0m)); go to exit end; 

iable to handle this assignment operation; 

ASS * PROCjD EQV FROM 

EN BEGIN ERR(159)J GO TO EXlT END; 

ROCEDURE IF AND ONLY WE COME FROM STmT; 



kS); 

ASS = LEFTpAREN 

EN ACTUALPARAPARTC FALSE* G I T( HOLE)) 

SE IF FORMALF THEN L * L-l 

ELSE IF TAKE(GITCHOLE)),NODIMPART?«0 

DDRESS); 

T? 



THEN ERRC128); 



PROCEDURE STRMPROCSTMT; 

BFGIN REAL WHOLE* F I X. T 1 ; 



WHOLE * ELBATt I ]* FIX «- -l; 

IF ELCLASS * STRPROCID THEN EMlT(O); 

if whole, lvl t 1 then 

BEGIN FIX «- L; L * L+l END; 



07092000 T 005710086 

07093000 T 0057*0087 

07093100 T 005750088 

07093200 T 0057J0089 

07094000 T 005710090 

07095000 T 005750092 

07096000 T 0057*0093 

07097000 T 005710094 

07098000 T 005780096 

07099000 T 0057*0098 

07100000 T 0057»0l00 

07100500 T 005750100 

07101000 T 005750101 

57 IS 106 LONG* NEXT SEG 

07391000 T 000350479 

07392000 T 0003*0479 

07393000 T 0003*0479 
START OF SEGMENT ********** 

07393100 T 005850000 

07394000 T 005850000 

07395000 T 005850000 

07396000 T 005850000 

07397000 T 0058S0001 

07397100 T 005850002 

07397200 T 005850003 

07397210 T 005850004 

07397300 T 005850006 

07397400 T 0058S0008 

07397500 T 005850014 

07397600 T 0058500l8 

07398000 T 0058500i9 

07399000 T 005850019 

07400000 T 005850020 

07401000 T 0058S0021 

07402000 T 005850023 

07403000 T 005850028 

07404000 T 005850028 

07405000 T 0058!00j>9 

07406000 T 005850031 

07407000 T 005850031 

07408000 T 005880032 

07409000 T 005850032 

07410000 T 005850033 

07411000 T 005850035 

07412000 T 005850037 

07413000 T 0058J0042 

074?5000 T 005850042 

58 IS 46 LONG* NEXT SEG 

07426000 T 000380479 

07427000 T 000350479 

start of segment ********** 

07428000 T 005950000 

07429000 T 005950000 

07430000 T 0O59SO00O 

07431000 T 005950002 

07432000 T 005950004 

07433000 T 0059500058 



1 
2 
1 
2 

1 

3 





1 

2 

3 
2 
2 
2 

58 



1 
3 

2 


1 


1 
2 
3 
1 
3 
3 
1 
1 
2 
3 
3 

1 
2 
2 
2 

1 

3 
2 
2 

59 





2 



L 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
o 
o 
o 

c 



V.-.' 



(J 

o 



c 
o 
u_ 

lo 

D 
a: 

:: o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



EMITO(MKS); 

Tl «• TAKEFRST.tl»6]; 

FOR r,Tl <■ 1 STEP 1 UNTIL l"l DO EMIT(O); 

IF STFPl * LEFTPAREN THEN ERR(128) - . 

ELSE BEGIN ACTUALPARAPARTC TRUE. G I T C WHOLE > ) t 

if fix < o Then emitvcwhole. address) 

ELSE BEGIN Ti * u i <■ FIX; 

WHOLE <- TAKECGIT(WHOLE)); 

EMlTNUM(Tl+?«WHOLE,[16tl23)J 
I «- Ti; 

EMITBCBRW.BUMPL' WHOLE, [28! 123); 



END END 



end; 
strmprocstmt; 



INTEGER PROCEDURE BAE; 

BEGIN BAE * BUMpLj CONSTANTCLEAN; ADJUST END BAE.: 
COMMENT RELSESTMT cOMPH.ES ThE RELfASE STATEMENT; 
COMMENT DOSTMT HANDLES ThF DO STATEMENT; 
PROCEDURE dostmt; 

begin integer tl; 

FOULED «- Li 

steplt; tul; stmt; if elclass t untilv then errf 131 
else begin 
stePit; bexp; eMitbcbbc.bumpl.tl) end 
end dostmt; 

comment whilestmt compiles the while statement; 
procedure whilestmt* 

BEGIN INTEGER BACk.FROnT; 
FOULED «• L; 
STEPITJ BACK «• it BEXp; FRONT * BUMPL* 

if elclass * dov then errc132) else 
begin steplt; stmt; emi tb c bbwt bumpl. back ) ; 

constantclfan; emitbcbfc, front, l) end end whilestmt; 

comment gostmt compiles fio to statements, g0stmt looks at the 
expression. te it is simple enough we go directly, 
otherwise a call on t h e mcp is generated in order to get 
storage returned, see dexp and gengo* 

PROCEDURE GOSTmT; 
BEGIN 

. Real elbw; 

Label gomcP.exit; 

if stfPi = tov thfn StePit; 

if elclass = labelid then tbi «• true 

else if elclass = swjtchid then tbi *• false 

else begin if flclass = polishv then 

BEGIN P0LIShER(1); EMlTO(BFW) end 
ELSE ERR(50i ); 

go to exit 
end; 

IF NOT LOCALCELBATri'J) THEN 



59 IS 



7 fl 3 '4 T 

07435000 T 
07436000 T 
07437000 T 
07438000 T 
07439000 T 
07440000 T 
07441000 T 
07442000 T 
07443000 T 
07444000 T 
07445000 T 
07446000 T 
33 LONG* 



START 



) 



60 IS 



07458000 
07459000 
07460000 
07481000 
07482000 
07483000 
OF SEGMENT 
07483500 
07484000 
07485000 
07486000 
07487000 
07488000 
11 LONG. 



00591000783 
005980008; 1 

0059?00l08Q 
0059!00l4!0 

0059J00l5»3 
0059;OOl8SO 
0059 tOQi9t 3 

0059:0022?1 
0059:0024; 1 
OO59500268 1 
0059:002753 
0059:0030:0 
0059?0030:0 
NEXT SEG 3 
0003:0479:2 
0003:0479:2 
000380484:0 
0003:0484:0 
0003?0484:0 

0003:0484:0 

******** 60 



07489000 
07490000 
07491000 

START OF SEGMENT 
07491500 
07492000 
07493000 
07494000 
07495000 
07496000 
61 IS 14 LONG. 
07497000 T 
07498000 
07499000 
07500000 
07501000 
07502000 
07503000 

START OF SFGMENT 
07504000 
07505000 
07506000 
07507000 
0751 1000 
07512000 
07513000 
07514000 
07515000 
07516000 



OO6O50000S0 
0060?0000» 1 

O060«oooo:i 

00605000450 
0060:000552 
0060:0008:0 
NEXT SEG 3 
00035048450 
00035048450 
00035048480 
61 



T 

T 
T 

********** 



006i:0000:o 
006180000: t 
0061 80000:i 
0061:0004:0 
006150006:0 
006i:00l0!0 

NEXT SEG 3 
0003:048480 
00038048480 
0003:0484*0 
0003:0484:0 
00038048480 
00038048450 
00038048480 

******** 62 

OO6280OO080 
OO62IO0O080 
00628000250 
00628000383 
00628000680 
OO628OO078 3 
00628000983 

00628001182 
00628001 183 
0062f OOH'3 



C 

C 



c 

r 
C 

c 



c 
c 
c 
o 
o 
o 

Q 
O 

o 



o 



o 



o 

o 
o 
o 

p 
1° 

"O 

o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 



BEGIN 

IF TFJi THEN 

BFGIN FMlTV(GNAT(ELBATt I]))J 

emit0cbfw3j 

stepit; 

go to exit end; 

BEGIN ERRC50DJ fiO TO EXIT ENOJ 

endj 

IF TB1 THEN BEGTN GOGENc ELBATr I ] , BFW ) J STEPlT? 

CONSTANTCLFAN? GO EXIT END 
ELSE BEGIN 

ELBW - ELBATrUJ 

BANA* 

EMiTOCDUP); 

EMlTO(AOD); 

EMlTOfBFW)J 
GT3 «- TAKEfGT4*GlT(ELBW)) + GT«I 
FOR GTfl *• GTfl + 1 STEP 1 UNTIL GT3 DO 

gogen(TakecgT/»)»bfW); 



EXIT! FND 
PROCEDURE 



ENDJ 

gostmt; 



COMMENT 



gogenclabelbat,branchtype); 
valuf labelbat»bRanchtype> 
Real labelbat»branchtypej 
begin 

IF BOOLEAN fGTl*TAKE(GT2*G I TaABELBAT))),Cl»n 
THEN EMlTB(BRANCHTYPE»BUMPL»fiTl,[36!12]) 

labelr sets the sign of the additional info for a 

NEGATIVE WHEN ThE LABEL IS ENCOUNTERED, SO THIS 

that we now know where to go? 

FLSE BEGIN EMlTCfiTpJ EM I T( BR ANCHTYPE ) J 
PUTCGTULC36l36lj2]tGT2) END END GOGENJ 
SjMPGO IS USED ONLY BY THE IF STMT ROUTINE, IT DETERMINES 
A STATEMENT iS A SIMPLE GO TO STATEMENT; 
BOOLEAN PROCEDURE SIMPGOJ 
BEGIN LABEL EX i T ; 



62 IS 



LABEL 
MEANS 



COMMENT 



IF 



IF E[, CLASS s 
THEN BEGIN 



GOV 



START OF 



IF 
IF 
IF 



EXIT: END SIMPGOJ 



stepi = t v Then stepit; 

ElCLASS = LABELID THEN 
LOCAL(ELBAT[I3) THEN 
BEGIN SIMPGO «- TRUE? GO EXIT END? 
I «- I-l; ELCLASS «■ GOV END; 



COMMENT IFSTMT COMPILES IF STATEMENTS. SPECIAL CARE IS TAKEN TO 

OPTIMIZE CODE IN THE NEIGHBORHOOD OF THE JUMPS, TO SOME 
EXTENT SUPPERFULOUS BRANCHING IS AVOlDEDJ 

PROCEDURE ifstmt; 

bfgin real t 1 » t 2 ; label exft; 

ifclause; 

IF SimPGO 
THEN BEGIN 



63 IS 



START OF 



07516100 


T 


0062*0012? 1 


C 


07516200 


T 


0062*00i3»2 


-— . 


07516300 


T 


0062*0013*3 


L 


07516400 


T 


0062*001553 




07516500 


T 


0062?00i6J0 


— . 


07516600 


T 


00625001651 


'"■•—■ 


07517000 


T 


00625001752 




07517500 


T 


0062500185 1 




07518000 


T 


0062*001851 


L 


07519000 


T 


006250021*2 




07520000 


T 


0062*0022*0 


/"*"" 


07521000 


T 


00625002251 


L. 


07522000 


T 


0062*002353 




07523000 


T 


006250023*3 


—* 


07524000 


T 


0062*0024*0 


L. 


07525000 


T 


0062*0024* 1 




07526000 


T 


0062*0025*3 


^^ 


07527000 


T 


0062*0026*0 


(_ 


07528000 


T 


0062*0029*2 




07529000 


T 


0062*0033*2 


/— ■- 


07530000 


T 


0062*0035*2 


^ 


07531000 


T 


0062*0035*2 




39 LONG* 


NEXT SEG 3 




07535000 


T 


0003*0484*0 


C 


07536000 


T 


0003*0484*0 




07537000 


T 


0003*0484*0 




07538000 


T 


0003*048450 


c 


07539000 


T 


0003*0484*0 




07540000 


T 


0003*0487*3 




07541000 


T 


0003*0490*0 


c 


07542000 


T 


0003*0490*1 




07543000 


T 


0003*049051 


■•"-N 


07544000 


T 


0003*0490*1 


c 


07545000 


T 


0003*0493*2 




07546000 


T 


0003*0495*2 


■■***•. 


07547000 


T 


0003*0495*2 


L_> 


07548000 


T 


000350495*2 




07549000 


T 


000350495*2 


s~\ 


SEGMENT 


********** 53 


c 


07550000 


T 


0063*0000*0 




07551000 


T 


0063*0000*0 


/ — N 


075^2000 


T 


0063*0001*2 


O 


07553000 


T 


0063*0003*2 




07554000 


T 


0063*0004*0 


r-"**"\ 


07555000 


T 


0063*000553 


c 


07556000 


T 


006350007*2 




07557000 


T 


0063*000952 


-****> 


13 LONC 


J » 


NEXT SEG 3 





07558000 


T 


0003*0495*2 




07559000 


T 


0003*0495*2 


•— V 


07560000 


T 


0003*0495*2 





07561000 


T 


000350495*2 




07562000 


T 


0003*0495*2 





SEGMENT 


********** 64 


07563000 


T 


0064*0000*0 - 




07564000 


T 


0064*0000*1 





07565000 


T 


0064*0000* 1 








c 



u 

p 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



T1 «- ELBATrl]! 
IF STfrPl = ElSEV 

then begin 
stepit; 
if simpgo 
then begin 

GQGENCELBATtl 3, BFC); 



GOGEN(TI.BFW) 



EXIT: END 



STEPIT? GO TO EXIT END ELSE BEGIN EM I TLNG ; GOGENC T 1 » BFC ) ; 
STMT J GO TO EXIT END END ; 
EMITLNGJ GQGENCTi ,BFC); 
GO EXIT END? 

Ti * bumpl; stmt; 
if elclass * elsev then 
begin if l-t1m023 then adjust; em i tb (bfc » t 1 . l ) ; 
go exit end; 
stepit; 

IF SjMPGO 

then begin 

T2 «- L; L 4-Tl-2;r,0GEN(ELBAT[n.BFC); L * T2; 

stepit; go exit end* 

T2 «• BUMPL' CONSTaNTClEAN? 

if l-t1>1023 thfn adjust; em i tb (bfc , t 1 »l ) ; stmt; 
if l-t?>1023 thfn adjust; em i tbc bfw , t2. l ) ; 
ifstmt; 



COMMENT LABELR HANDLES LABELED STATEMENTS. iT PUTS L INTO THE 

ADDITIONAL INFO AND MAKES ITS SIGN NEGATIVE, IT COMPILES 
AT THE SAME TIME ALL THE PREVIOUS FORWARD REFERENCES SET 
IT BY GOGEnj, fTHE ADDITIONAL INFO LINKS To A LIST 
CODE ARRAY OF ALL FORWARD REFERENCES); 



64 



Up FOR 

In the 
procedure labelr; 

begin label 



EXIT, ROUND. 



define flbatw0rd=rr9#»link=gt2#, i ndexsgt3#» additional 

*gt4#»nextlink=gt5#; 
Real oldl; 
do begin oldl *■ l; 

IF STEPl * COLON THEN 

BEGIN ERRC133); GO TO E*IT END; 
XMARK(LBLREF); % THIS WILL SORT AHEAD OF DECLARATION %\\0> 
% WHEN WE GET AROUND TO THE XREF. XllO" 
IF NOT LOCAL(ELBATWORD * ELBATf i-l] ) 

THEN BEGIN FLAGU34); GO TO ROUND END; 
IF STEPl = COLON THEN 

BEGIN I * I-i; ADJUST END ELSE 



START 



IF 
IF 



ELCLASS = LITNO THEN L 
ELCLASSsASTRlSK THEN 
BEGIN IF MODE * OR 
FLAGC505); 

astog «- true; 

L «- 4xpRTi; 
ELSf 



ftxc 



ASTOG 



ELSE 
THEN 



I 
IF 



ENQ 

• 1-2; 

STEPl 



colon then 
begin errc133); go 
if l < oldl then 

begin flagc504); go 



TO EXIT end; 



TO ROUND END; 



07566000 


T 


0064*0001*3 




07567000 


T 


0064*0002*1 


i 


07568000 


T 


0064*0003*2 


^~- 


07569000 


T 


0064*0004*0 




07570000 


T 


0064*0004* 1 


^ 


07571000 


T 


0064*0004* 1 


L, 


07572000 


T 


0064*0005*3 




07573000 


T 


0064*0007*3 


.■--\ 


07574000 


T 


0064*0010*1 


C 


07575000 


T 


0064*0011*3 




07576000 


T 


0064*0013*2 


/->, 


07577000 


T 


0064*0013*3 


^ 


07578000 


T 


0064*0016*0 




07579000 


T 


0064*0016* 1 


_, , 


07579100 


T 


0064*0020? 1 


u 


07580000 


T 


0064*0021*2 




07581000 


T 


0064*0021*3 


/■"""""l 


07582000 


T 


0064*0021*3 


c 


07583000 


T 


0064*0022*1 




07584000 


T 


0064*0026* 1 


/"""*'■ 


07585000 


T 


0064*0027*3 


L, 


07585100 


T 


0064*0030*0 




07586000 


T 


0064»0034;0 




07587000 


T 


0064*0037*3 


C 


S 41 LONG. 


NEXT SEG 3 




07588000 


T 


0003*0495*2 




07589000 


T 


0003*0495*2 


c 


07590000 


T 


0003*0495*2 




07591000 


T 


0003*0495*2 




07592000 


T 


0003*0495*2 


(^ 


07593000 


T 


0003*0495*2 




07594000 


T 


0003*0495*2 




OF SEGMENT 


********** 65 


c 


07595000 


T 


0065*0000*0 




07596000 


T 


0065*0000*0 


'■"> 


07596500 


T 


0065*0000:0 





07597000 


T 


0065*0000:0 




07597500 


T 


0065*0000*1 


/■"> 


07598000 


T 


0065*0001*3 





07598100 


C 


0065*0003*3 




07598200 


C 


0065*0007)3 


.... 


07599000 


T 


0065*0007*3 


(J 


07600000 


T 


0065*0008*1 




07600100 


T 


0065*0011*3 





07600200 


T 


0065*0012*1 


07600300 


T 


0065*0015*2 




07600400 


T 


0065*0018*0 




07600410 


T 


0065*00l9;2 


O 


07600420 


T 


0065*0021 *2 




07600430 


T 


0065*0022*0 





07600440 


T 


0065*0023*2 


07600450 


T 


0065*0024*0 




07600500 


T 


0065*0024*0 




07600600 


T 


0065*0026*0 





07600700 


T 


0065*0027*2 




07600800 


T 


0065*0028: 1 


/-**-• 


07600900 


T 


0065*0029*3 




c 



u 



o 



o 
o 

10 



o 

o 

C i 

o 
o 
o 
o 

o 
o 
o 
o 

o 



GTl «• TABLECI + 1); 

LINK * (ADDITIONAL «- TAKECINDEX * G I TC EL8 ATWORD ) ) ) 

. [36: 12]; 
IF ADDITIONAL < THEN 

BEGIN FLAGC135); GO 
FOULED *• Lj 

TF TABLEC 1+1) = COLON T 
BEGIN 

IF LINK^O 
DO BEGIN 



to round end? 
hfn 



ROUND' 
EXIT 



END 



PUTC 
ERRORTOG 

LABELRJ 



THE 
NEX 
L *■ 
IF 
THE 
EMIT 



L *• 

END UNTIL 

L «• OLnLJ END 

DO IF STEPI < 

NONLITNO 

ELSE BEG 

UNTIL STEPI t 

\ *■ i-i ; 

END FLSf 

while Link * o 

DO BEGIN 

NEXTLyNK * GFTCLIN 
IF L-LINK>1023 THE 
EMITB(GETCLINK-1)»L 
LINK * NEXTLINK EN 
ADDITIONAL&LC36J36 
TRUE END UNTIL ST 



n begin oldl «• lj 
tlink «• get(link); 
link; 

OLDL, [36: 10]-L,[36J10]>128 
N FLAGC50) ELSE 
C0LDL-LINK&0[46»46S2]+ 

0&NEXTLlNK[46U6l2] + 30r2); 
L-l S 

link*-link-nfxtlink dfv 4 = l; 
; stepit; 
strngcon and elclass > 

THEN EMlTWORDCC) 
IN ERRC500); J «■ i-i E ND 

comma; 



K-2)l 

n adjust; 

ink,d; 

d; 

M2]» INDEX); 

epi + labelid; 



£******:),**** ************************** *#*******************************!£ 
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%* 
%* 
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%* 
%* 
%* 
%* 
%* 

%* 
%* 
%* 
%* 
%* 
%* 
%* 
%* 
%* 
%* 
%* 



THIS PROCEDURE 
STATMENT IS? 



case 



STATEMENT 



HANDLES THE CASE STATEMENT, THE SYNTAX FOR THE CASE 



CASE <AEXP> OF BEGIN <COMPOljND TAIL> 
THE CODE GENFRATED FOR THIS STATfMENT IS» 



<AfXP> 
LITC ' 
BFW 

STMT 
LITC ' 
BFW 



BRANCH TO BRANCH TABLE 



BRANCH TO RESUME 



*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
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600950 

601000 

602000 

603000 

604000 

604010 

604020 

604030 

604040 

604050 

604060 

604067 

604068 

604070 

604080 

604085 

604090 

604100 

604H0 

604120 

604130 

604140 

604150 

604160 

605000 

606000 

607000 

607100 

608000 

609000 

610000 

645000 

646000 

88 LONG. 

646010 C 

646015 

646020 

646025 

646030 

646035 

6/46O4O 

646045 

646O5O 

646055 
646060 
646065 
646070 
646075 
646080 
646085 
646090 
646095 
646100 
646105 
6 4 6 1 1 
646H5 
646120 



0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065 
0065» 
NEXT S 
0003« 
0003 J 
0003? 
0003J 

0003! 
0003? 

0003J 
0003S 
00038 
0003S 
0003S 
OOO31 
0003S 
0003S 
0003S 
00031 
0003S 
0003! 
0003$ 
0003S 
0003! 
0003S 
00035 



0031 
0033 
0034 
0036 
0037 
003B 
0039 

0041 

0041 

0043 

0045 

OO46 

0047 

0049 

0052 

0054 

0055 

0058 

0059 

0061 

0062 

0067 

0068 

0069 

0069 

0071 

0072 

0074 

0076 

0078 

0079 

0082 

0084 

EG 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 
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c 



c 
c 
c 
c 
c 
c 
c 
c 
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..- — s 
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|o 
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U 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



X* 

3!* 
X* 

-%* 

%* 

%* 
%* 
%* 
X* 
-X* 
%* 

X* 

s* 
x* 
%* 
%* 
%* 
%* 
%* 
%* 
%* 
x* 
x* 
%* 
%* 
%* 
x* 
x* 
%* 
%* 
x* 
%* 
%* 
.%* 
x* 
%* 
%* 

x* 

%***** 

xxxxxx 

PROCED 
BEGIN 
ARRA 



STMT 1 
LI TC ? 

BFW 



branch to Resume 



BRANCH TABLE! 



DUp 
ADD 
BFW 
LITC 

BBW 
LITC 

BBW 



LITC 
BBW 



RESUME? 

NOTICE THAT 

1)- THF C 

MIGHT C 
INTEGER 



BRANCH INTO TABLE 

BRANCH TO STATEMENT 

BRANCH TO STATEMENT 1 

BRANCH TO STATEMENT N 



?) 



3) 



'n 



NO PANG 
OUT OF 

IF A ST 
GENERAT 
niRFCTL 

IF A ST 
THE STA 

******** 
%%%%%%%% 
URE CASE 



ASE IN 
AUSE T 
IZE IT 

E CHEC 

RANGE 

ATEMEN 
ED FO 
Y TO R 

ATEMEN 
TEMENT 

****** 

%%%%%% 
STATFM 



oex I 

HE I 
YOUR 

KING 
THEN 

T IN 
R TH 
ESUME 

T IN 
DOES 

***** 

h % % % « 

ENT; 



S NOT INTEGERIZED. IF YOU HAVE ANYTHING THAT 
NDEX TO BE UNNORMALIZED YOU WILL HAVE TO 
SELF, 

is done on the index, if you use a number 

YOU WILL EALL OFF THE END OF THE WORLD. 

THE CASE COMPOUND TAIL IS NULL* NO CODE IS 
E STATEMENT, INSTEAD, THE BRANCH TABLE GOES 



THE CASp COMPOUND TAIL IS A SIMPLE GO TO» 
NOT HAVE A BRANCH TO RESUME AFTER IT. 



*********************************** 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



Y CASEADDRESSl-0899]; 



integfR 

LINK, 



ADR. 



N» 



********* 

XI 
XI 

% THIS ARRAY HOLDS THE RELATIVE XI 

X ADDRESS OF THE BEGINNING OF EACH XI 

% CASE, XI 

851 

X HOLDS RELATIVE ADDRESS OF FIRST OF XI 

X BRANCHES THAT MUST BE FIXED UP TO XI 

% BRANCH TO THE RESUME POINT. XI 

X HOLDS RELATIVE ADDRESS OF THE BRANCH 

X AROUND THE CASE STATEMENTS TO THE Xt 

% BRANCH TABLE. THIS BRANCH GETS FIXED 

X UP WHEN WE FIND WHERE THE BRANCH TABL 

X G0E5, X) 

X COUnT Of- NUMBER OF CASE STATEMENT XI 

X ENCOUNTERED, XI 



*% 
*% 
*X 
*% 
*% 
*% 
*% 
*% 
*% 
*£ 
*% 
*% 
*% 
*X 
*% 
*% 
*% 
*X 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 

*x 
*% 
*x 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
*% 
**x 

XXX 
15- 
15- 
15- 

15- 
15- 
15- 
15- 
1.5- 
15- 

15- 

E 

15- 
15- 
15- 
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076 
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OF SE 
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076 
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076 
076 



46125 
46130 
46135 
4 6140 
46145 
46150 
46155 
46160 
46165 
46170 
46J75 
46180 
46185 
46190 
46195 
46200 
46205 
46210 
46215 
46220 
46225 
46230 
46235 
46240 
46245 
46250 
46255 
46260 
46265 
46270 
46275 
46280 
46285 
46290 
46295 
46300 
46305 
46310 
46315 
463?0 
46325 
46330 
46335 
GMENT 
46340 
46345 
46350 
46355 
46360 
46365 
46370 
46375 
46380 
46385 
46390 
46395 
46400 



0003 
0003 

0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
******* 
C 0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
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0495 

0495 

0495 

0495 

0495 

0495 
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0495 
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0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

0495 

** 

000153 

0001*3 

000113 

000153 

0001*3 

000153 

000153 

0001*3 

0001 53 

0001 53 

000153 

0001S3 
000153 
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c 



v_. 



c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 

c 



o 



o 
o 
o 
o 



:-0 



b 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



fndofit, 
u> 

K; 



RESUME POINT 



BOOLFftN 
GOTOGJ 

LABEL XI T J 



X ADDRESS OF 

X TEMPORARY 

X TEMPORARY 
X 



% TRUF IF WE ARE COMPILING A SIMPLE 
X GO TO, 



STFPIT; % 5TFP OVpR "CASE" 
AEXPI X GENrRATE CODE FOR CASF INDEX 

IF STEPI t BEGTNV THEN % NOTICE Wf. JUST JUMPED OVER "OF" 
BfGIN 

ERR(70); GO TO X IT; 

END J 
EMTTCO); % GENFRATE DUMMY BRANCH TO BRANCH TABLE, WILL FIX 
EMITO(BFW); % IT Up LATER, 

ADR := L* 
WHIi.E STEPI * ENDV DO 

BEGIN X PROCESSING CASE STATEMENTS 
ERRORTOG 5= TRUE? 
IF ELCLASS = SEMICOLON THEN % NULL STATEMENT, NO CODE NEED 

N 5= N + 1 % THIS LEAVES A ZERO IN C ASEADDRESSC Nl 
ELSE- 
BEGIN 

CASEAD[)RESS[NJ := L; % REMEMBER BEGINNING ADDRESS OF 
N la N + i; % THIS CASE. 

IF fGOTOG '= SjMPfiO) ThfN 

ELBATrl«=I"l] ?s ELCLASS 5 = GOV? X REMEMBER IF S I M P L 

stmt; % process the statement 
if elclass = semicolon them 
if not gotog then x generate dummy branch to resume 

BEGIN 

EMITCLINK); 
EMITOcBFW)* 
LINK != LJ 
END 
ELSE % SIMPLE GO TO, NO CODE TO GENERATE 
FLSp 

IF ELCLASS * ENDV THEN 
ERRC71); 
END? 
END OF I'iHlLE LOOP; 
ENDTOG 5 = TRUE} X SKIP OVER COMMENT AFTER END 
DO STOPDEFINE : = TRUE UNTjL 

STEPI < ENDV AND ELCLASS > UNTILV OR NOT ENDTQG5 
FNDTOG != FALSE? 
FMITBCBFW,ADR»L)J % FIX UP BRANCH TO BRANCH TABLE 

emitocduP); X GENERATE code to multiply index 

EMlTOfADDH % BY TWO AND BRANCH INTO BRANCH TABLE 

FMpOcBFW); 

ENDOFIT is l + ?*N5 X CALCULATE WHERE RESUME IS 

while fj»sj+i) < n do % generate the branch table 

EmITB(BBW,i,* s |. + 2,iF ( K 5 =C ASEADDRESS[ j- t ] ) = THEN 

ENDOFIT ELSE K)? 
J 5 = LINK; % To MAKE THE LOOP WqRK 
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XI 
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07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
76 4 6 
07646 
07646 
07646 
07646 
76 4 6 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
07646 
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07646 
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07646 
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405 
410 
415 
420 
425 
430 
435 
436 
440 
445 
450 
455 
456 
457 
458 
459 
460 
465 
470 
475 
480 
485 
490 
495 
500 
505 
510 
515 
520 
525 
530 
535 
540 
545 
550 
555 
560 
565 
570 
575 
580 
585 
590 
595 
601 
602 
603 
604 
605 
610 
615 
6?0 
625 
630 
635 
640 
645 



0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
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«0001 
50001 
:0001 
S0001 
50001 
50001 
50001 
80001 
50001 
:0001 
5 0001 
80002 
50002 
80003 

;ooo4 

80005 
80005 
80006 
8 0007 
80007 
$0009 
50009 
80010 
50011 
50012 
50012 
80013 
80014 
80015 
10016 
50020 
80020 
80021 
50022 
50022 
80023 
80024 
8 0025 
50025 
80025 
*0025 
50026 
50028 
50028 
50028 
50029 
50030 

50034 
50034 

50036 
80036 
'0037 
8OO38 
8OO4O 
50042 
50046 
(OO4B 



c 
c 

r 
\~- 

C 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



c 



L. 



o 



o 
o 
o 

■O 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

n 



WHILE (UINKs=J) * 
BfGIN % FIXING 



DO 

UP BRANCHES 



TO RESUME 



X IT 

END 



J := GETCLlNK-2); 
F.M|TR(BFWf LTNKtL) 

end; 
of casf statement* 



% LOCATION OF NEXT BRANCH TO FIX 



X115- 
*11 5- 

XI 15- 
X115- 
SB115* 

MIS- 
SUS- 



66 



PROCEDURE FTU,STMTc$TZE)J VALUE SIZE' INTEGER SIZE? 

BEGIN 

COMMFNT "COCT" PERFORMS The OCTAL CONVERT FOR THE FILL STATEMENT. 

IF THERE ARE ANY NON-OcTAL DIGITS, THIS PROCEDURE RETURNS 

A ZERO AND THEN THE 3 LOW-ORDER BITS OF THE BAD DIGIT ARE 

"RFSET AND IGNORED AND ERROR NUMBER 303 IS PRINTED. "COCT" 

ALLOWS FLAG BITS TO BE SET, WHEREAS "OCTIZE" DOES NOT, 



N 
SKBIT 



ACC 



NUMBER OF CHARACTERS TO BE CONVERTED, 
NUMBER OF BITS TO SKIP BEFORE STARTING CONVERSION, 
THIS IS BECAUSE THE NO. OF CHARS, MAY BE LESS THAN 
a AND IT MUST BE R I GHT-JUST I F I ED IN CD( CODEF I LE ) . 
ADDRESS OF ThE ACCUM WHERE ALPHA INFO IS KEPT, 



REAL STRFAM PROCEDURE COCT C U» SKBI T » ACC » CD ); VALUE N, SKBIT? 



START 



BFGJN 
St«bA 

di ;=c 

NC IF 

3CI 
COCT! 
END C 
REA|. T?J 

LABFL LU 

STRfAM PRO 

BEGIN 

DI s=D 

S I :=D 

END Z 

XMARKCASSI 

STRfAMTOG! 

segmf.ntsta 

IF STEPl/A 

ELSE BFfilN 

FOR T 



CC? Si : =S I +6; DI 

D ; SKIP SKBlT DB 
SC>"7"THEN tally« 
F SB THEN 0S!=1 
=TALLY 
OCT; 



CEDURF ZEERO(D)J 



j = CD; DSlsB LlT"00000000"; 
;TALLYJ=i; 
=o; SKIP 3 SB J 
SET FLSE SKIP 1 DB? SKIP 1 SB))! 



00") 
DSJ=30 WDS{ 



?DSS=8 LIT M 000000 

J3t(32CDS:=WDS3)J 

EFROJ 

GNREFJJ % FILL STATEMENT 

=B00LEAN(2)? 

RTCTRUE)? 

SSTGNOP THEN ZEFROCCODEf 1)5 

1 UNTIL SIZE DO 



XI 10- 



ELSE 



2:=1 STEP 
BEGIN 

IF stepi>idmax TH 

BEGIN 

IF FLCLASS/L 

IF ELCLASS 

IF ELCLA 

CSTEPI 

C!=C 

else bfg 
if elclass = s 

MOVECHARAC 
ELSE MOVEC 1»C»C0D 

END 
IF C0UNTS19 AMD A 



EN 



THEN 



ITNO AND ELCLASS#N0NLlTNO 

jfSTRNGCON THEN 

SS=ADOP AND 

=NONLITNO OR ELCLASS=Ll TNO ) THEN 

& ELBAUI-1 HU21U] 
IN eRR0R(30?>; 00 TO L1 END? 
TRNGCON AND C0UnT=8 THEN 
TERSf8. ACCUM tl],3»C00E(T2)»0) 
E(T?)) 

CCUM[13.ClBll83s"OCT" THEN 
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BEGIN 

IF COCTfCOUNT 
C0DECT2))=0 

fnd 

ELSE BEGIN fRR0R(302); GO TO 
IF STEPl*COMMA THfN GO TO Ll 
END? 
ERR0R(54)J 

fnd; 

RIGhUS[ZE*4); 

STRfAMTOg«=fAUSfJ 
SEGMENT(SiZE»0); 

PRO f ,nFSCBLDRCA[)DRSF»THUE» SIZE* DDES)? 

END FlLLSTMT; 



PROCEDURE STMT? 

BEGIN LABEL 



3»48-CC0UNT-3)x3,ACCUM[1Jf 
THEN FLAGC303) 



Ll END J 



Lis 
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START 



A G A I N J 



Ll" 

Ll 1 » 

L21» 

L31» 

L4l» 

L51» 

SWIT 

Ll# 

Lll, 

L21. 

L31 » 

L41 » 

L5l» 

LaBE 

STAC 

GO T 

IF E 



L2> 

112 f 

L22» 

l,32» 

L42» 

L52* 

CH S 

L2, 

112» 

L22* 

L32* 

1,42* 

L52» 

L AGA 

KCT * 

SCE 

LCLAS 

BEG I 



L3, 

L13* 

L23* 

L33» 

L43* 

L53* 



L4» 

L14« 

L24. 

L34* 

L44; 

L54; 



L4, 

L24, 
L34i 
L44< 
L,5fl; 



IF E 

LiJL2:i,3:l,4:l5jL6 

L33*L34*L35!L36*L 

ERRC 

L.7IL8I 

5UBH 
L 1 : L 1 8 J L 1 9 s 

PROC 
-L12: 

STRM 
L22:L?3*L26*L2 



end; 

LCLAS 
M.9JL 
37*L3 
144); 



L3» 

L13» 

L23* 

L33. 

L43* 

L53» 
I N , E X I T ; 

o; 
lclasS]; 

S = COLON 

N STEPlTj 

IF ELcLa 

BEG 

ELSE TF 

ELSE I «- 

IF L < G 

BEG 

stepit; 

GO TO AG 

S = THF 
H»Ll3tLl 



L5* 

L15» 

L25» 

L35» 

L45» 



L5» 

Lj5, 

L25, 

L35, 

L45» 



L6, 

L16» 

L26* 

L36. 

L46» 



L6, 

L16* 

L26. 

L36* 

L46» 



L7» 
L17* 
L?7» 
L37* 

L47» 



L7» 

L17. 

L27* 

L37» 

L47* 



L8» 
LIS. 

L?8, 
L38* 
L48* 



L8* 

L18, 

L28, 

L38, 

L48, 



L9. 

L19* 

L29. 

L39» 

L49* 



L9, 

L19, 

L29, 

L39, 

L49, 



LlO, 
L20# 
L30* 
L40» 
L50, 



L10, 
L20. 
L30, 
L40, 
L50, 



THFN 

GT1 «- L; 
SS a COLON THEN 
IN ADJUST? I «• 1-1 END 
ELCLASS = LlTNO THEN L «■ 4xc 

i-i; 

Tl OR STEPI * COLON THEN 

IN FRRC504); GO TO EXIT END; 

AIN} 

N FLAGC 100); FLAGC 145); 

4JLl5!Ll68Ll7 8L20!L2l!L25JL28!L29JL24! 



go to exit; 

to fxit; 
to exit; 
o exit; 



amd (true); go 
stmtctrue); go 



procstmt; go t 
7 s L30: L-31 ? 
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07727040 
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0068*0037*2 
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07727050 
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0068*0039*3 




07727060 
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0068*0041*3 




07727070 
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0068*0044*0 
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07727080 
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0068*00^6*0 




07727090 
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0068*0054*0 
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132: 
L38s 
L40: 



L42; 
U3: 

Las i 

L4.9.I 
LSI ; 

L528 
L53: 
L5/i: 



vaRiarLecfs); go to exit; 

labelrj go to again; 

poliSheR(O); go to ex t t; 

if elbatti], address = streamv then 
begin inline; go to exlt end5 

F L. A G 1 1 4 6 ) ; 

IF TARLECI-2) = FNDV AND MODE > THEN 

BEGIN I - !-?> ElCLASS «. ENDV; GO TO EXIT END? 

i «- i-i ; eRRortog - true; blockcfalse); 

ELCLASS «- TABLEf I * I - 1 >l GO TO EXjT5 
OBLSTMTJ GO TO FXyTJ 

forstmt; go to fXit; 
whilfstmt; go to exit; 
oostmtj go to exit? 
casestatement; go to fxit; 
i f s t m t j go to exit* 
gostmt* go to exit; 
iostmt; go to exit; 



IF STEPI - DECLARATORS THEN 
PEGIN 

IF ELBAT[I], ADDRESS c STREAMV THEN IF STEPI = 
LFFTPAREN THEN 
BEGIN 

elclass*table(i*i-d ; 
compoundtail ; 

GO TO EXIT ; 
FND ELSE 1*1-1! 
I^I-l' 

blockcfalse); end else compoundtail; 

L46»L47»L48»L50J 

L41 « 

EX t T : fND STMT; 



proceduRf tostmt; 

IF STEPI i LITNO OR f GT 1 *ELBATCI ]. ADDRESS) >15 THEN ERRC98)FLSE 
BEGIN EMlTf ELBAT[ t-1] .AOORFSS&GTirai »47»i ]&GTlt 36144* 3] }l 

STEPlT 

FND scope statement; 

PROCEDURE FORSTMTJ 
BEGIN 
OWN REAL B>STMTSTART»REGO,RETURNSTORE»ADDRES.V.VRET# 



BRET; 

OWN BOOLEAN S I GNA , S I gNB t S I r,NC t INT, 
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00688009880 
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00685010050 
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00685010080 
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07997000 


T 
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THE 



const ana # const anb«constanc; 

DEFINE SIMPLEB s SIGNc#» FORMALV = SIGNA#. 

SIMPLEV = C0NSTANA## A = V#. Q = REG0#, 
OPDC = TRUr#, DESC = FALSE** K = BRET#; 

LABEL EXIT; 
COMMENT PLUG EMITS EITHER AN OPERAND CALL ON A VARIABLE OR A CALL ON A 

CONSTANT DEPENDING ON THE REQUIREMENTS; 
PROCEDURE PLUG(C»A)» VALUE C, A? REAL A* BOOLEAN C; 

IF C THEN EMlTNUMfA) ELSE EM I TV( A . ADDRESS ) 5 
COMMENT SIMPLF DETERMINES IF An ARITHMETIC EXPRESSION IS + OR - A 

CONSTANT OR A SjMPLE VARIABLE. IT MAKES A THROUGH REPORT 

ON ITS ACTIVITY. jT ALSO MAKES PROVISION FOR THE RESCAN 

OF ELBAT (THIS |S THE ACTION WITH K - SEE CODE IN 

TABLE ROUTINE FOR FURTHER DETAILS); 

boolean procedure s i mple c b» a , s ) ; boolean b,s? real aj 
begin 

S * IF STEPI j* ADOP THEN FALSE ELSE ELBAT [ I] . ADDRESS 

= SUB; 
IF ELCLASS = ADOP THEN STEPlT; 
IF ELCLASS > NONLITNO AND ELCLASS < STRNGCON 
THEN BEGIN K «■ K + l« SIMPLE * TRUE; 

ELBATrl] «• 04C0MMENTV[2MU7]&K[16»37IH]; 
INF0C0»K] * A *■ Cj B * TRUE END 
ELSE BEGIN 
B <- FALSE) A * FLBATtlJ; 

simple «- realid < elclass and elclass < intld ends 
stepit end simple; 

COMMENT TEST EMU'S THE STeP-UNTIL fLEMENT TEST? 
PROCEDURE TEST; 
BEGIN 

IF NOT CONSTANB ThEN 

BEGIN EMITO(SUB); IF SIMPLEB THEN EM I TV( B , ADDRESS ) 
ELSE BEGIN 

FMiTL(2+L"BRET); 

emjtbcbbw»bumpl»b); 
end; 

EMITOCMUL); rMlT(O) END; 
EMITOCIF SlGNB ThEN GEQ ELSF 

END test; 
boolean procedure simpkall); value all; real 

BEGIN 

checkeRcvret-all); 
addres * all. address; 

formalv * all.c9j2] = 25 

if t «- all. class > intarrayld or t < booid or 

GTl «• (T-BOOID) MOD 4 < 1 THEN 
ERRCREALCT / 0) x 5t + 100); 
INT * GT1 = 2 J 

SlMPl «• T < INTlD END SIMPI; 
COMMENT STORE EMITS ThE CODf FOR THE STORr INTO THE FOR INDEX. 

procedure storfcs); value s; boolean s) 
begin 

IF FORMALV THEN BEGlN EMlTOfXCH>* 

else begin 
emiTlcaddreS); 
if addres > 1023 then emito(prte) 

T <• (REAL(S) + l)xi6; 



LE«); EMIT (0); L*L-1 

all; 



S * FALSE END 



end; 
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0069 


50003 


!3 


08027000 


T 
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emit0((tf int thfn t + 512 else 4xt)+4) end store? 
comment caul effects a call on the index? 
procedure callfs)} value s; boolean sj 
begin 

IF SJMPL.EV 

then if s then emitvc addres) else emitncaddres) 

ELSE BEGIN 

FMITlC2+L-VReT)I 
EMITB(BBW»BUMPL»V)J 

if s then emitoclod) end end call; 
procedure forlistcnumle)? value numle; boolean numle; 

BEGIN 

procedure fixcstore> back. forw art # start); 

value storf,back>forwart»start; 
real store»back»forwart»start; 

BEGIN 

EM lTB ( GET(FORWART-l)»FORW ART, START)) 

if Returnstore t 
then begin 

l «• storej emitnum(b-back)* 
emitpair(RfTurnstore»std) end end fix; 

INTEGFR BACKFIX, fORWaRDBRANCh, FOOT, STOREFIX; 

label brnch,exit; 

storefix «• l; q *■ real(mode = 0) + 3; 

for k * 1 step 1 until q do emi tocnop) j 

IF NUMLE 
THEN BEGIN 

PACKFIX «- l; 

IF FORMALV ThEN CALL(DESC) end 
ELSE BACKFIX «- V + ReALC S I MPLEV ) - 1 ; 

aeXp; 

COMMENT PICK UP FIRST ARITHMETIC EXPRESSION; 
IF ELCLASS = STEPV 

then begin 
comment here we have a step element; 

BACKFIX «- rUMPLJ 

comment leavf room for forward jump; 

if formalv then callcdeso; callcopdc); 
commfnt fetch index; 

if i > 70 then bfgin nxtelbt <- 1 ; i * end 

ELSE REGO * i; 
IF SiMPuEB * SIMPLECC0NSTANB»B,SIGNB) AND 
(ELCLASS = UNTIL.V OR ELCLASS = WHILEV) 
THEN BEGIN 
COMMENT We HAVE A SlMPLF STEP FUNCTION; 

plugcconstanb ,b); 
end else begin 
comment the step function is not simples we construct a 
subroutine; 

i * if i < 4 then o elsf rego; stepit ; 
signb «. constanb * false; 
emit(O); b «• l; 

AEXp; EMlTOCXCH); 

BRET * L) 

emito(bfw) end; 
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THIS 
IF El, 
EMITC 
FORWA 
IF EL 

the 



ELS 



L 
IS TH 
CLASS 

bfo; 

RDBRA 
CLASS 
N BEG 
STEP I 
FORLI 
FIXCS 
E BEG 
IF EL 

STEPl 
IF NU 



(REAL(Si 

(BFW»RAC 
CLASS = 
N BEGfN 
STOREfTR 
STePITJ 
E BEGIN 
IF ELCLA 

BEGIN 
STEPIT* 
GIN 
HAVE A S 

cfalsf); 

CLASS = 
N BEGIN 
WHILE EL 
STEPITJ 
E BEGIN 
SION ELE 
F ELCLAS 
EMIT 
ELSE BAC 

* L+l i 

E COMMON 
= COMMA 



GNB)X32+ADD); 

kfix»d; 

UNTfLV 

COMMENT STEP-UNTlL 
UE); IF FORMALV THEN 
AEXP; TEST FND 

COMMENT STEP-WHILE 

ss * whilev then 

ERRfl53)> GO TO EXjT 



element; 
call(opdc); 

element; 

end; 



STORE(FALSE); BEXP END END 

TEP ELEMENT; 

WHILEV 

ement; 

BEXp END 

ment; 

S t COMMA THEN BEGIN 
B(BFW»BUMPL.L+2)> BACKFIX « 
KFIX «- L + 2> 

emitcbfw); go to brnch end 
point; 
thfn emitlng; l * l+i; 



L END 



end; 



STMT; 



NCH * L; DULA «• DIALB * 0; 

= COMMA 
IN 

T; 

STfTRUE); 

TOREF I X,BAC«F I X> FORWARDER ANCH. STMT START) end 

IN 

CLASS * DOV 

THEN BEGIN ERRC154); REGO+L* GO EXIT END? 

T; 

mle then foot := getspacecfalse,-d; % temp. 



exit; 



END 



IF NUMLE then begin 

emltv(returnstore *■ foot); emitocbbw) end 
else begin 

emitb(bbw»bumpl»backfix)j returnstore «■ end; 
stmtstart «. forwardbranch; b «• l ; 
constantclfan; Rfgo * l; 

riXCSTOREFlX.BACKFlXiFORWARDBRANCHjL) END; 
F0RLIST; 



Real Ti,T2*T3»T4i 

nxtelbt *■ 1; i «- o; 
stePit; 

IF SiMPlCVRET*ELBATCI]J 

then begin 

IF STEPt * ASSIGNOR 
XMARK(ASSIGNREF); % 

ti •• l; IF formalv 

k * o; 



70 IS 



THEN BEGIN ERRC152); 
FOR STATEMENT 

THEN emitncaddresd; 



GO 



exit end; 

XllO- 



08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 

1 

08 
08 
08 
08 
08 
08 
08 
08 
08 



26000 
27000 
28000 
29000 
30000 
31000 
32000 
33000 
34000 
35000 
36000 
37000 
38000 
39000 
40000 
41000 
42000 
43000 
44000 
45000 
46000 
47000 
48000 
49000 
50000 
51000 
52000 
53000 
54000 
55000 



57000 
58000 
59000 
60000 
61000 
62000 
63000 
64000 
65000 
66000 
67000 
68000 
69000 
70000 
71000 
72000 



56000 T 



LONG. 



73000 
74000 
75000 
76000 
77000 
78000 
78100 
79000 
80000 



0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
0070 
NEXT S 
00691 
0069: 
0069J 
00695 
0069; 
0069! 
0069! 
0069! 
0069! 



56 
)7 
17 
19 
)1 
>6 
)98 



1 



0043 

0045 

OO46 

OO46 

0047 

OO5O 

0051 

0052 

0052! 1 

0054il 

OO56 

005651 

OO56 

0057 

0057 

0058 

0058 

0059 

0060 

0060 

0061 

0065 

0066 

0069 

0069 

0072 

0073 

0075 

0075 

0076 

0076 

0077 

0079 

0079 

0079 

0082 

0083 

0085 

0086 

0086 

0087 
0089 
0089 
0092 
0094 
0095 
0096 

EG 

0084 

0084 

008 

008 

008 

008 

00 

00 

00 



2 

1 
2 
2 

2 
2 
2 


1 
3 
2 
3 
3 
1 
2 
3 


2 
2 
3 
1 

2 

1 

69 

1 

1 

1 

2 

3 

2 

3 







c 
c 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
o 
o 
o 
o 



^J 



O 

o 

o 

L 
o 

!> 

" ,: o 

o 
o 
o 



o 

o 
o 

Q 

o 
o 
o 




a , a ) ; 



step it; 

Tl * (CCC4096 



plugcconstana,,.. - 

if signa thfn emito(chs); 

RETURnSTORE * BUMPL,; ADJ 
STMTSTART * LI 



ust; constantclean; 



t; 

C f C CA096 x RFTURNST0RE + STMTSTART)x2 + 
REAL(CONSTaNb))x?+ 
REAL,CCONSTaNc))x? + 
REAL(SigNB))x2+ 



R 

Realcsigno; 

vRet; 

b; 

q; 




impicvred; 

if formalv then em i tn( adores } ; em i tvc adores ) ; 

plugcconstanb.b); 

EMlTOflF Slr,NB THEN SUB ELSE ADD); 

EMlTBfBFW»RETURNSTORE»l)» 

STORE(TRUE); 



I *■ ?'> K 

SIMPLEV «- 
V * Tl END 
ELSE BEGIN 
FMIT(O); V 



0; 
SIMPICVRET); 



EXITS K * 

REAL PROCFDURE 
BEGIN 
LABFL fof; 



ELSE BEGIN 

FMIT(O); V * it SIMPLEV «• FALSE; FORMALV «• TRUF; 
VARlABLFtFR); EMjTOcXCH); VRET * L; EMlTO(BFW); 

if elclass/assignop Then begin fRRci52); go fxit end; 
end; 
stepjt; forlisTcfalse); l «- Rego; 

END FORSTMTi 



reed; 



INTEGER l»J.K, 



08181000 T 
08J82000 T 
08183000 T 
08184000 T 
08185000 T 
08186000 T 
08187000 T 
08188000 T 
08189000 T 
08190000 T 
08191000 T 
08192000 T 
08193000 T 
08194000 T 
08195000 T 
08196000 T 
08197000 T 
08198000 T 
08199000 T 
08200000 T 
08201000 T 
08202000 T 
08203000 T 
08204000 T 
08205000 T 
08206000 T 
08207000 T 
08208000 T 
08209000 T 
08210000 T 
082H000 T 
08212000 T 
08213000 T 
08214000 T 
08215000 T 
08216000 T 
08217000 T 
08218000 T 
08219000 T 
08220000 T 
08221000 T 
08?22000 T 
08233000 T 
08224000 T 
08225000 T 
08226000 T 
08227000 T 
08228000 T 
08229000 T 
08230000 T 
08?3l000 T 
08232000 T 
69 IS 169 LONG* 
08999000 T 
08999025 T 
08999050 T 
START OF SFGMENT ** 



0069*0099:2 
0069J0100J0 

0069?0l0U3 

0069t0iQ3:2 

0069?0l04»l 

0069J0l06«0 

0069»Qi07f 3 

0069;0i08?0 

0069J0109J2 

006950HOJ 1 

0069I0H3I2 

0069J0H4J0 

0069J0H4J1 

006950H6JO 

00698011712 

0069 J 01 18! 

0069;OH9S2 

00695012010 

0069J0l21«2 

0069«0121J3 

0069:0l22»l 

0069J0123J2 

0069:0124*0 

0069;0l25>3 

0069:012651 

0069J012850 

0069S012952 

0069:0i30:i 

00695013152 

00695013250 

0069J0132J1- 

0069J013450 

006950136:0 

0069?0i37:2 

0069J0139 

006950140 

0069 J0141 

0069J0143 

006950144 

006950145 

006980147 

0069:0H9 

0069:0151 

006950152 

0069*0153 

006950154 

006950155 

0069:0158 

006950161 

006950163 

006980163 

006950J65 

NEXT SEG 

000350505 

000350505 

000350505 

******** 71 



L 
C 
C 



c 
c 
c 

c 
c 
c 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



i o 



L 



O 

o 

o 

o 

-o 

a 

1° 
J o 

o 

o 

o 



o 
o 
o 
o 
o 
o 
o 



N,T; 

END 



move; 



eOf ; 
FNn 



STRrAM procedure: movecn,f,T); value 

BEGIN SIJ=F; 01 : = T ; DSJ=N WDS 
J:=-t ; 

REAn(COD!SKrN0])tE0F]; 
REEn»sf*=FETCHCMKABS(CODJSK(l))); 

k!=mkabs(c0de(0))-1 } 
while i-j>30 oo 

BEGIN 

M0VE(30,C0DISK(0),K); K»=K+30; JSsJ+305 

read(codisk)j 
end; 

MOVfC I-J»C0DISK(0),K)> 
READ(CODISK)CEOF]? 



Reed? 



PROCEDURE RjGHTfL); 
BEGIN 
INTfGER i»j; 



value l; integer l; 



I*=fL+7) DIV 4; 

M0Vf(1 #I»C0DISK(0))J 

M0VFC29>C0DE(0),C0DlSK(l))J 

WRITECCODISK); 

J:=?9; 

WHILE i-j>o no 

BEGIN 

M0VE(30,CQDECvJ)»C0DISKcO))j 

WRITECCODISK)! 

J5=j+3o; 

END? 

end right; 
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START 



COMMENT THE PROGRAM ROUTINE 

FOR THF RFST OF THE 

IS SIMPLY A CALL ON 
PROCEDURE PROGRAM? 

BEGIN 
STREAM PROCEDURE MDESC ( WD, TQlOC >; VALUE WD; 



does the initialization and 
compilfR. the main program 
the program routine; 



the wrapup 

of the compiler 



72 



BEGIN DKL0C WD; DS<- SeTJSU 
DEFINE STaRTinTrSc- 
LABEL LI*' 
LiST0G«=LiSTeR:=B00 

comment listog is not set by def 

. NOHEADING !s true; 
ERRORcOUNT J = 0; 
ERRMAX!=999; % may 

rasenumjsioooo; add 

COMMENT DFFAULT VALUES FOR "$Sf9 
LASTUSED * = 4J % FO 
NEXTiNFO «- LASTjNFO 

putnbump(O); 

gt 1 4- -" »•; 

MDrSC(GTl» INFOCLAST 
BLANKETcOtlNFOtLAST 
READACARDJ % I N T T I A 



log wd; 

426*1 



di«.toi,oc;ds*.wds end. 



START 



lean (j -errorcount, [ 46 m i 
AUlT on timesharing; 



); 



ue; 



be changed in dollarcard 
value:=iooo; newbaSe*=tr 
" option; 
R initialization, 

* lastseqrowx?56+lastsequence+i; 



SEQR0W.LASTSE0UENCE3); 
SEQROWfLASTSEQUENCE]); % 
LIZATION OF NCR.FCR* AND 



FOR "S CHFCK", 
LCRt AND 



08999075 T 


0071 ?0000*0 




08999100 T 


007i:0000J0 




08999125 T 


00715000182 


c 


08999150 T 


0071 J000352 




08999175 T 


007110008*0 




08999200 T 


00711001410 


c 


08999225 T 


0071 S OOl 9S2 




08999250 T 


0071500201 1 




08999275 T 


007l«00205i 


c 


08999300 T 


0071«0027»2 




08999325 T 


00715003152 


y"~ 


08999350 T 


0071 500315 3 


c 


08999375 T 


OO715O036S0 




08999400 T 


007150041*2 




08999425 T 


0071 5004250 


c 


IS 47 LONG. 


NEXT SEG 3 




08999450 T 


OOO3505O553 




08999475 T 


OOO35O50553 


c 


08999500 T 


00035050553 




OF SEGMENT ********** 72 




08999525 T 


00725000050 


c 


08999550 T 


00725000153 




08999575 T 


0072*000553 




08999600 T 


00725001251 


c 


08999625 T 


007250016*1 




08999650 T 


00725001752 




08999675 T 


00725001953 


c 


08999700 T 


00725001953 




08999725 T 


00725002651 




08999750 T 


0072*00305 1 


L, 


08999775 T 


0072?0031'3 




08999800 T 


007250032*0 




S 35 LONG* 


NEXT SEG 3 


c 


09000000 T 


00035050553 




09001000 T 


00035050553 




09002000 T 


00035050553 





09003000 T 


000350505*3 




09004000 T 


0003?0505S3 


-— V 


09005000 T 


0003*0505*3 





OF SEGMENT ********** 73 




09006000 T 


0073*000050 




09024000 T 


0073*000153 





09025000 T 


007350001*3 




09028000 T 


00735000153 




09028010 T 


0073*000552 





090?8050 T 


0073*000552 




09028900 T 


00735000650 




09028910 T 


007350006 5 1 





09028920 T 


0073*0007*3 




09028930 T 


00735000953 




09029000 T 


00735000953 





09033000 T 


0073*00l05j 




09034000 T 


0073*0013*2 


s~~\ 


09034100 T 


OO735OO1450 





09034200 T 


0073*0015*2 




09034500 T 


0073*001752 





09035000 T 


0073*0019*2 



L. 



(J 

o 
o 
o 
'o 

: "o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



% READS FIRST CARD INTO 
USTUSED ' = 1' * ASSUMES CARD ONLY 
NXTELBT <- i; 

prti*prtimax*prtbase* 

MRCLFAN «• TRUE' 
COMMENT START FILLING TABLES NEEDED TO 
FILL TENC*] WITh 
OC T 1 77 U 10 4 6 3/(2205 ft * 0CT1761 3 32600326467* 



CARD BUFFER, 

UNTIL TOLD DIFFERENTLY 



COMPILE A PROGRAM? 



0CT1751621340414205, 



0CT17A 
0CT171 
0CT165 
0CT162 
0CT157 

c T 1 5 ^ 

0CT150 

0CT145 
OCTlfl? 
0CT136 
OCT 133 
OCT130 
0CU24 
0CT1?1 
0CTH6 

Oct H2 

0CT107 
0CT104 
OCTOO 
OCTOO 
OCTOO 
0CTO12 
OCTOj.5 
OCTO?0 
0CT024 
0CT027 
OCTO32 
OCTO36 
0CT041 
OCTO/44 
OCTO^O 
0CT053 
OCTO56 
OCT062 
0CT065 
0CT070 
0CT073 
OCT077 



216563 
426604 
104034 
204730 
403472 
773036 
173626 
361622 
730171 
163225 
341.131 
667633 
153277 
321556 
6 314 6 3 
144000 
303240 
575360 
0l35in 
326571 
654321 
126570 
251320 
512676 
120617 
235613 
4641 14 
113166 
222737 
436770 
106041 
210660 
413215 
101201 
177345 
370727 
746130 
166543 



0517 2/17 

6116735i 

7241213. 

3622767 

6313046) 

6574502, 

4172732: 

0020057, 

1237333, 

4513731 

1150223) 

7663537, 

45l5275i 

1353071 

14631^6 

OOOOOOOi 

0000000, 

40000001 

35564000, 

42036440. 

27413543, 

7274266, 

1307703, 

4556310, 

J 75 34 7, 

2665013, 

1345435, 

4625027, 

5067064, 

6263476, 

1731665, 

7305375, 

4331566, 

436H20, 

0267005, 

2645341, 

4707100, 

5043072; 



0CT17326 
0CT17053 
0CT16412 
0CT16124 
0CT15650 
0CT15211 
0CT14723 
0CT14445 
0CT140H 
0CT13522 
0CT13243 
0CT12610 
0CT12320 
0CT12040 
0CTH410 

OcTl 1117 
0CT10636 
0CT10373 
0CT0011 
0CT0043 
0rT0076 
0CT0l3l5 
0CT01632 
0CT02163 
0CT02514 
0CT°3030 
0CT03360 
OCT03713 
0CT°4226 
0CT04554 
0CT05112 
0CT05425 
0CTO5751 
0CT06312 
0CTO6623 
0CT07146 
0CT07511 



23176 
4 3457 
50441 
61164 
44113 
71646 
?5741 
61664 
16227 
00727 
13631 
45602 
61573 
61115 
00000 
50000 
41100 
46545 
64324 
43277 
74055 
43271 
36041 
54561 
47626 
51561 
11371 
60241 
75274 
65667 
74514 
30351 
60607 
1 4 4 1 7 
72362 
71151 
37556 



643120, 

542525, 

111455, 

567564, 

775657, 

433362, 

231521, 

024072, 

350722, 

636717, 

402270, 

764047, 

640554, 

645707, 

000000, 

000000, - 

000000, 

000000, 

5121000, 

2446150* 

5316473, 

15334 3, 

571663, 

711772, 

234641, 

442216, 

636745, 

772234, 

304701, 

740415, 

320242, 

166674, 

420123, 

455344, 

344606, 

416632, 

607072, 



0CT172 
0CT167 
0CT163 
0CT160 
0CT155 
0CT151 
0CT146 

0CT143 
0CT137 
0CT134 
OCT 131 
0CT125 
0CT122 
0CT117 
0CT113 
0CT110 
0CT105 
0CT101 
OCTOO 
OCTOO 
OcTOl 
C T014 
0CT017 
0CT023 
0CT026 

0CT031 
0CT034 
0CT040 
0CT043 
0CT046 
0CTO52 
0CT055 
0CT060 
0CT064 
0CT067 
0CT072 
0CTO76 



33700 
66343 
15225 
31754 
62551 
14302 
30133 

57162 
13416 
26411 
53765 
12571 
24761 
50753 
12000 
23420 
46H3 
11240 
22214 
54341 
11053 
20741 
41054 
10047 
17615 
36641 
74136 
16543 
34545 

70032 
155 36 

32564 
64147 
14575 
30710 
60474 
13675 



36413744 

73473252 

51333770 

21725521 

36775233 

20142257 

31500045 

4103H11 

75243J07 

15606502 

77702746 

4 3561061 

32610706 

41217270 

00000000 

00000000 

20000000 

27620000 

116345200 

571157602 

071060221 

47406234, 

52130240, 

71627437, 

73704011, 

15752661, 

70206536, 

12370703, 

53366062, 

45730521, 

37404312, 

43424453, 

51324150, 

23370635, 

57035747, 

03722400, 

12350710, 



COMMENT THIS IS THF FILL FOR THE SfCOND ROW OF INFO: 

THE FIRST ITEMS ARE STREAM RESERVED WORDS* 
THFN ORDINARY RfSfRVED WORDS, 

then intrinsic functions; 
fill infom**! with 

0CTO67OOOO6O0000OO2* "2SI000"* 

OCT0700001040000002* "2DI000* 1 * 
OC TO 7 1000 14 6000000 2, "2CI000", 



*256 

*258 
S260 



09036000 
09037000 
09038000 
09039000 
09040000 
09040100 
09041000 
09042000 

START OF SEGMENT 
09043000 
09044000 
09045000 
09046000 
09047000 
09048000 
09049000 
09050000 
09051000 
09052000 
09053000 
09054000 
09055000 
09056000 
09057000 
09058000 
09059000 
09060000 
09061000 
09062000 
09063000 
09064000 
09065000 
09066000 
09067000 
09068000 
09069000 
09070000 
09071000 
09072000 
09073000 
09074000 
09075000 
09076000 
09077000 
09078000 
09079000 
09080000 
74 IS 115 LONG 
09081000 
09082000 
09083000 
09084000 
09085000 
09086000 

START OF SEGMENT 
09087000 
09088000 



0073' 
0073* 
0073» 
00735 
00731 
0073' 
0073! 
0073! 



******** 



0073' 
0073: 
0073? 
00735 
0073? 
00735 
00735 
0073! 
0073! 
0073' 
00735 
0073! 
00735 
00735 
0073; 
0073? 
0073! 
0073! 
00735 
0073! 
00735 
0073! 
0073! 
0073? 
0073! 
0073! 
0073? 
0073? 
00735 
0073' 
0073? 
00735 
0073? 
0073' 
0073? 
0073? 
0073! 
0073? 
NEXT S 
00735 
0073! 
0073? 
0073? 
0073' 

0073' 

******** 

T 0073' 
T 0073' 



0019 

0019 

0020 

0021 

0022 

0023 

0023 

0023 

** 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

0024 

EG 

0024 

0024 

0024 

0024 

0024 

0025 

** 

0026 
0026 



c 
c 
c 
c 

c 

c 
c 
c 
c 

c 

c 
c 
c 
c 
c 
c 



u 



o 



L 



O 

o 

o 
o 

p 
So 

- : o 

o 

o 

o 

o 



o 



o 
o 

o 

u 

o 
o 

o 












V 



0CT07 
0CT07 
0CT07 
0CT07 
0cT07 
0CT07 
OcTiO 
0CT10 
0CT10 

Or.TjO 
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0000002, 

0000000, 



"3DLS 
"3S0U 
"3DU1 

"3MDL 
"3DLD 
"3D0L 
"1P00 
"1M00 
"3PRL 
COMMp 

COMMp 
"7 SCO 
"2.LB0 
"2RI30 
"3GTR 
"3GEQ 
"3EQL 
"3NEQ 
"3LEQ 
"3USS 
"5TIM 
"3SCT 
"35AN 
"3SCS 
"5FIF 
" 4 C A S 



00" 

00" 

00" 

00" 

00" 

00" 

00" 

00" 

00" 

NT 

Nj 

PO" 

00" 

00" 

00" 

00" 

00" 

00" 

00" 

00" 

ES" 

00" 

00" 

00" 

Ld" 

EO" 



RL; 

OP; 

"FT, 
"[# 

"]# 
»># 
»># 
» = # 

»<# 

«<* 



2598 


09J26300 T 


2600 


09126400 T 


2602 


09126500 T 


2604 


09126600 T 


5^606 


09126700 T 


260B 


09126800 T 


X610 


09126900 T 


X612 


09127000 T 


2614 


09127100 T 




09127200 T 




09127300 T 


2618 


09127400 T 


2621 


09127500 T 


£624 


09127600 T 


2627 


09127700 T 


£630 


09127800 T 


2633 


09127900 T 


2636 


09128000 T 


2639 


09128100 T 


2642 


09128200 T 


2645 


09128300 T 


2648 


09128400 T 


2650 


09128500 T 


2652 2112- 


09128600 P 


2654 2115- 


09128700 P 


2656 2115- 


09128800 P 




09128900 T 




09129000 T 




09129100 T 




09129200 T 




09129300 T 




09129400 T 




09129500 T 




09129600 T 




09129700 T 




09129800 T 




09129900 T 




09130000 T 




09130100 T 




09130200 T 




09130300 T 




09130400 T 




09130500 T 




09130600 T 




09130700 T 




09130800 T 




09130900 T 




09131000 T 




09131100 T 




09131200 T 




09131300 T 




09131400 T 




09131500 T 




09131600 T 




09131700 T 




09131800 T 




09131900 T 



0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
00 73 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 



:0028: l 


800285 1 


J 00281 i 


J0028:i 


S0028S l 


« 002811 


S0028: 1 


» 0028M 


!0028»1 


5002851 


500265 1 


5002851 


5002851 


5002851 


5002851 


J002851 


500285 1 


5002851 


5002851 


5002851 


500285 1 


500285 1 


5002851 


5002851 


500285 1 


5002851 


5002851 


5002851 


5002851 


5002851 


5002851 


5002851 


5002851 


5002851 


5002851 


5002851 


500285 1 


5002851 


5002851 


5002851 


5002851 


5 002851 


5002851 


5002851 


5002851 


5002851 


8002851 


5002BS1 


5002851 


5002851 


500285 1 


5002851 


50028*1 


500285 1 


5002851 


5002851 


8002851 



c 



c 

c 
c 
c 
c 
c 
c 
c 
c 
c 



c 
c 
c 

c 
c 
c 
c 

c 



o, 



o 
o 
o 

o 

O 

Jo 

L ] 

C> 

'to 
o 
o 
o 
o 
o 
o 
o 

/ — * 

u 

o 

o 
o 

o 



01 % END OF INFO FILL, 



FOR 



GT2«-256 STEP GTl.LlNK WHILE NOT BOOLEANC GT 1 , FORMAL ) 00 
PUTCC6Ti*TAKE(6T2))8GT2[35l35:i3]»GT2)l 
FOR GTl*GT2 STEP GT2,LlNK WHILE GT2,LlNK#0 DO 

PUTC(GT2*TAKE(6Tl3)&STACKHEADtGT3*TAKECGTi+l).C12:36] 
MOO 125][35*35* 13j»STACKHEADtGT3]*GTi)l 
COMMENT THIS IS THE FILL FOR ThE SPECIAL CHARACTORS; 
FILL SPECIALT*] WITH 
OcTi200000000?00000, COMMENT #> OCT0000000000100000, COMMENT 



OCTO 
OcTl 
OCTl 
0CT1 
OCTl 
OCTl 
OCTl 
OcTO 

OCTl 
OCTO 
OCTO 
OCTl 
OpTl 

OrTi 

0*0 



00000 
37044 

40044 
2?000 
25000 
37045 
4 1 4 4 

00000 

40044 
62OOO 
00000 
17000 
37044 
23000 



00000 
04500 

02000 

00000 

00000 
04500 

10000 

00000 
06000 
00000 

00000 
00000 

10500 

00000 



00000, 

02763, 

00000, 

60000, 

00000, 

03571, 
00000, 
40000, 
00000, 

00000* 

00000* 
00000* 
02561, 
00000, 



COMMENT >; 

COMMENT +i 

COMMENT ,J 

COMMENT &) 

COMMENT <* 

COMMENT x{ 

COMMENT SJ 

COMMENT -I 

COMMENT ,*J 

COMMENT >; 

COMMENT *\ 

COMMENT ]J 



OCTH 
0CT13 
OCTOO 
0CT12 
0CTO4 
0CT13 
OCTOO 
0CT04 
0CT12 
0CT13 
0CT14 
OCTOO 
0CT13 
OCTOO 



60000 
70440 
00000 
10000 
50000 
30401 
00000 
70000 
40000 
70450 
10442 
00000 
70451 
00000 



FIH, MACROT*] with 
0CT0131* 

0CT0H6. 
OCTOOOO* 
0CT0140, 
0CT0130* 
OCTOj 17. 
OCTOOOO* 
OCTOOOO* 

0CT00310143* 
OCT00160143* 



COMMENT SFS A 



00012 
25000 

00000 
00000 
00000 
04000 
00000 
00000 
00016 
25000 
00000 
00002 
05000 
00014 



00 



0000, 
2662, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
3470, 
0000* 
0000* 
2460, 
0000, 



COMMENT 
COMMENT 

COMMENT 
COMMENT 
COMMENT 

COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 

comment 

COMMENT 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



SFD A 
SYNTAX 
INC A 
SRS A 
SRD A 
SYNTAX 
SYNTAX 
CRF A* 
CRF A* 



01 

ERR0R02 

03 

04 

05 

ERR0R06 

ERR0R07 

SFS 008 

SFD 009 



[J 
C J 
+ 1 



*; 
)? 
<j 
/? 

— * 



091 
091 
091 
091 
09i 
091 
091 
091 
091 
091 
091 
091 
09 J 
091 
091 
091 
09j 
091 
091 

76 IS 14 

091 
091 
091 
09i 
09l 
091 
09l 
09i 
START OF SE 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 
092 

77 IS 3 

092 
09? 
START OF SF 
092 
09? 

092 
09? 
09? 

092 

09? 

092 
09? 



32000 
32100 
32200 
32300 
32400 
32500 
32600 
32700 
32800 
32900 
33000 
33100 
33200 
33300 
33400 
33450 
33500 
33600 
33700 
7 LONG* 



33800 
33900 
34000 
34100 
34200 
97000 
98000 
99000 
GMENT 
00000 
01000 
02000 
03000 
04000 
05000 
06000 
07000 
08000 
09000 
10000 
11000 
12000 
13000 
14000 
2 LONG* 



T 
T 
T 

T 
T 
T 
T 

T 

** 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



15000 
16000 
GMENT 
17000 
18000 
19000 
20000 
21000 
22000 
23000 
?4000 
25000 



T 

T 

** 

T 

T 

T 

T 

T 

T 

T 

T 

T 



0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 

NEXT 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 

***** 

0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
NEXT 
0073 

0073 

***** 

0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 



:002B: 
S0028J 
;0028J 
:0026S 
50028? 
500285 
I 0026 * 
500285 
500285 
500288 
s 0026: 
500285 
500285 
S0028J 
500285 
s 0028 J 
800285 
500288 
500285 

SEG 
500285 

5003450 
5004050 
50045J3 
5004952 
5005352 
8005382 

5005383 

*** 

800548 
500548 
800548 
500548 
800548 
800548 
800548 
80054? 
800548 
J00545 
80054? 
80054? 
800548 
800548 
5 0054 8 

SEG 
800548 

800558 

*** 

50056! 

80056! 

800568 

500568 

80056? 

800568 

500568 

800568 
80056? 



c 



c 



r 



r 



C 
C 
C 



n 



C 



C 

c 
c 



o 



o 
o 



u 



c 



o 
o 
o 
o 
to 

> 

to 

^O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



oc 

Oc 

oc 
oc 
oc 
oc 
oc 
oc 
oc 

0CT0042 

oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 



T00470143. 

T00400l43t 

100300143* 

T00l70i43» 

TOOOO 

T0000, 

TO t 53i 

T0J04, 

T0150, 

01/430042. 

T0122 

T0106, 

TOOOOi 

T0000 

T0056, 

T0000, 

T0000, 

TOOOO, 

TOOOO; 

T0007, 
TOOOO, 
TOOOO, 
T0H5, 
TOJ 14; 

TOjS/l; 

TO) 41 



COMMf 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



NT CRF 
CRF A. 
CRF A. 
CRF A, 
SYNTAX 
SYNTAX 
RSA A 
ROA A 
RCA A 
SEC 0. 
SES A 
SED A 



FILL OPTIONS!-*] WITH "5CHECK" .0 , 



"6DEBUG 
"4DECK0 
"6F0RMA 
"9INTRI 
"5LISTA 
"4LIST0 
"5LISTP 
"3MCP00 
"4TAPF0 
"4NEST0 
"3NEW00 
"7NEWJN 

"40MIT0 
"1S0000 
"3PRT00 
"5PUNCH 
"SPURGE 
"4SEGS0 
"3SEQ00 
"6SEQER 
"6SINGL 
"5STUFF 
"4V0ID0 
"5V0I0T 
"4RENn0 
"4XREF0 



»0, 
,0, 
,0. 
.0, 

.0, 

,0, 

,0, 

,0, 

,0, 

,0, 

,0, 

*o, 

,0, 
,0, 

.0, 

.0, 

.0. 

.0, 
.0, 
»o, 
.0, 

,0, 
.0. 

,0, 
,0, 
.0, 



A. JFW 10 

INC Oil 

SRS 012 

SRD 013 

ERR0R14 

ERR0R15 

16 

17 

18 

CRF A. SEC 19 

20 

21 

SYNTAX ERR0R22 
SYNTAX ERR0R23 
TSA 24 
SYNTAX ERR0R25 
SYNTAX ERR0R26 
SYNTAX ERR0R27 
SYNTAX ERR0R28 
TDA 29 
SYNTAX ERR0R3O 
SYNTAX ERR0R31 
SSA A 32 
SDA A 33 
SCA A 34 
STC A 35 

% 0,1 



% 


2.3 


% 


4.5 


% 


6.7 


% 


8.9 


% 


10.11 


% 


12.13 


% 


14.15 


% 


16.17 


% 


18,19 


% 


20.21 


% 


22.23 


% 


24.25 


% 


26.27 


% 


28,29 


% 


30,31 


% 


32.33 


% 


34.35 


% 


36.37 


% 


38.39 


% 


40.41 


% 


42.43 


% 


44.45 


% 


46.47 


% 


4 8,49 


% 


50, 51 


% 


52. 53 



X108 

*108 



0; 



09226000 
09227000 
09?28000 
09?29000 
09230000 
09231000 
09232000 
09233000 
09234000 
09235000 
09236000 
09237000 
09238000 
09239000 
09240000 
09241000 
09242000 
09243000 
09244000 
09245000 
09246000 
09247000 
09248000 
09249000 
09250000 
09251000 

78 IS 36 L0N( 

09251208 
START OF SEGMENT 
09251212 
09251214 
09251216 
09251218 
09251220 
09251224 
09251228 
09251230 
09251232 
09251234 
09251236 
09251240 
09251244 
09251248 
09251252 
09251256 
09251260 
09251264 
09251268 
09251272 
09251276 
09251278 
09251280 
09251284 
09251285 
09251286 
09251288 

79 IS 55 LON( 



T 


0073?005651 




T 


0073800563 1 


,—,. 


T 


007350056: 1 


L, 


T 


0073:0056:1 




T 


0073:0056: 1 


1 ' 


T 


0073?0056!1 


L- 


T 


0073:0056: 1 




T 


0073:0056: 1 


C 


T 


0073:00568 1 


T 


0073:0056:1 




T 


0073:0056: 1 


C 


T 


0073:0056: 1 


T 


0073:0056:1 - 




T 


0073:0056: 1 


r* v. 


T 


0073:0056: 1 


^ 


T 


0073:0056M 




T 


007350056S1 




T 


0073:0056:1 


c 


T 


007350056: 1 




T 


0073J0056:i 


c 


T 


0073:005681 


T 


007380056: l 




T 


OO738O056S1 


.— . 


T 


0073J0056I 1 


C 


T 


0073800561 1 




T 


00738005681 


^^ 


G. 


NEXT SEG 73 


c 


T 


00738005681 




********** 79 


c 


T 


00738005830 


T 


0073:005880 




T 


00738005850 


»'"• 


T 


0073:005880 


L, 


T 


0073?005B:0 


..... 


T 


0073J0058S0 


^_^ 


T 


00735005880 


L- 


T 


00735005880 




T 


00735005880 


r**~* 


T 


00738005850 


c 


T 


00738005850 




T 


00738005850 




T 


00733005880 


c 


T 


00738005830 




T 


00735005830 


r— -v 


T 


00735005850 


L. 


T 


00735005880 




T 


0073:005850 


_._ i 


T 


00738005880 


c 


T 


00735005850 




T 


00733005830 


■— -s 


T 


00738OO5850 


L. 


T 


OO735OO5880 


- 


T 


00738005880 


/ — ■ 


C 


00738005850 


v_ 


C 


OO7350O5850 




T 


00738005880 


c 


G. 


NEXT SEG 73 






C 



u 



c 



o 
o 

o 
o 

■-O 
t-O 

o 
o 
o 
o 
o 
o 
o 
c 
o 
o 
o 

o 



STREAM PROCEDURE 
BEGIN DI «• 



DO UNTIL STEPI = BEGlNVi 
RTl *-" "l 

intog «- intog and tRuf; x 

DTSKAOR *.IF INtOg THFN INTRINSICADR ELSF 2) 
MdESC(6T1»INfO[LASTSEQROW#LASTSEQUENCE])I 
moesccgti, INFO[LASTSFQROW»LASTSEQUENCE-i]); 
MOESCfGTl,INF0tLASTSEQR0W»LASTSEQUENCE-2J); 

stmt; 

LOCKf STUFF)' 
CL,OSFfCARD.REUEASE)J 

if lastused t i Then closectape*release>; 
if newtog then lockcnfwtape»*j; 

IF T«-((L + 3)DlV lO + CoRADR > 4080 THEN FLAG(0fl0)J 

if not noheading then % print these things if any 
begin % listing has been done, 
panct,fiel»ner»lsq); value ner»t; 



si 

DI 
SI 
SI 



lSq; d! 

FIFI.J 
LOC NEf 
LOc Tj 



BEGIN 



fiel; 

>S «- W 
I)S* 2 

:r; ds 

DS * 

stream procedure pfncfil 

value 

DI*F 

ns * 
si-u 

Sl-L 

si -l 

PFN? 
INALA 
• LINE 

line; 

LOC N 

seq; 



44CDS+2LIT" » ) 8 

dsj si 4-fiel? ds * 3 wds; 

8 lit"number of errors detected = "; 

«• 3 dec' ds «- 22 lit ". compilation time s "; 

4 dec? ds «. 9 lit " seconds,"; end; 
»prtstz,basf»coRe»disk); 

prtsiZ,basf»core»disk; 

lit DS * 9 LIT"PRT SIZF="* Sl*LOC PRTSjz; 
LIT" BASE ADDRESS*"; 
dec; DS*lO LIT" core REQ= w ; 
dec; ds^-io lit" disk req="; 
dec; ds*6i lit » »•; 



START 



3 DEC* DS*1« 

oc base; ds«.4 

OC CORE; DS*4 

oc disk; ds«.s 



E 



STREAM 



PROCEDU 
BEGIN 

n 
s 

S 

fnd; 

IF AXN 
B 
F 

w 

E 
SCRAM 
PANCSC 



MD 
RE I 
DI « 
I «■ 
T * 
I * 



x<line»n»seo)j value n; 

; l5fDS - 8 LIT " "); 

DS ♦ 31 LIT "NUMBER OF ACCIDENTAL 

»' ds * 3 dec; di «- oi + e; 
si ♦• s 1 -16? ds * 8 chr; 



ENTRIES = "; 



um to then 

EG IN 
INAL 
RITE 

no; 

:= ( 

RAM, 



AX(LiN[0]»A><NUM» infoclasiseorow,lastsequence] >; 
line; 



TIMEC1 )-TlMEl )/60; 
LJNt0]>ERR0RC0UNTMNF0[LASTSEQR0W,LASTSEQUENCE-l]) 



writeline; 

PFN(LIN[03,PRTIMaX,T:=(L+3)DIV 4> T J =CORADR+T t 
C CT + 29J0I V 30 + DlSK A DR)x30)J 

writeline; 
locK(Line»rfleasf); end; 

TF ERRORCOUNT * THEN 1*0/0 fLSE 
. BEGIN .. 

ARRAY 5AVlNFO[0:3l»0S255], 

iNFor 0: 200*0:2553 ; % for large mcp'*s, 

integer savndx,nonsavndx»n; 
jntfgeR Q»j*k,m; 



80 



start 



09252000 


T 


00738005880 




09253000 


T 


00738006081 


. — - 


09253050 


T 


0073! 0061 J 3 


l_ 


09253100 


T 


0073S0064J0 . 




09253500 


T 


0073*006783 


.— . 


09254000 


T 


00738006913 


L, 


09?55000 


T 


00738007280 




09275000 


T 


0073800748 1 


c 


09281000 


T 


00738007582 


09231500 


T 


00738007681 




09282000 


T 


007380078: 1 


c 


09282500 


T 


00738008183 


09282600 


T 


00738008481 




09362000 


T 


O073?00888l 


^ 


09363000 


T 


0073?008982 


L- 


09364000 


T 


0073*008983 




OF SFGMENT 


********** go 


c 


09365000 


T 


00805000080 


09366000 


T 


00808000182 




09367000 


T 


00808000250 


,.*•*«, 


09368000 


T 


00808000680 


u 


09369000 


T 


00808000983 




09370000 


T 


00808001280 


c 


09371000 


T 


00805001280 


09372000 


T 


00808001250 




09373000 


T 


00808001450 




09374000 


T 


00808001650 


c 


09375000 


T 


00808001880 




09376000 


T 


00805002080 


c 


09377000 


T 


008050028! 1 


09378000 


T 


0O8O8O02982 




09379000 


T 


00808002982 




09380000 


T 


00805003152 


c 


09381000 


T 


00808003583 




09382000 


T 


00808003680 


_ 


09383000 


T 


00805003782 


(_J 


09384000 


T 


OO805003752 




09384050 


T 


00808003881 


c 


09384100 


T 


00805003952 


09384500 


T 


00808004153 




09384600 


T 


00808005250 


c 


09385000 


T 


0080S0052S0 


09386000 


T 


00805005480 




09386500 


T 


00805005782 


/ — ■, 


09387000 


T 


00808005783 


c 


09388000 


T 


00805006783 




09389000 


T 


00808007183 




09389500 


T 


00808007480 


c 


09390000 


T 


0080800848 1 




S 87 LONG* 


NEXT SEG 73 


c 


09391000 


T 


00735009280 


09392000 


T 


00735009481 




09392300 


T 


00738009552 


s~\ 


OF SEGMENT 


********** 8j 


u 


09392500 


T 


00818000352 




09393000 


T 


0081 8000583 


c 


09393010 


T 


0081 3000583 



v_ 



c 



o 

c 

o 
o 

to 

"to 
o 
o 
o 



o 






o 
o 

o 
o 
o 
o 

o 



BOOLEAN TS5T0GJ REAL T; 

REAL PROCEDURE PUSHFRCGKINCh>GOT»XMAS) J VAl.UE XMASJ REAL XMASJ 

ARRAY r,0T[0]{ ARRAY GRINCH [0,0]; 

RFC, IN 

RFA|, who^What; 

DEFINE LINKR = C32S8]#; 
% 

IF WH0:=XMAS,LINKC < 225 TrEN 
BEGIN) 

M0VEC3O,GRlNCH[XMAS,LlNKR»WH0 3»GOT[03); 
PUSHER'sXMAS + 3 0; 

END 

FLSE bfgin 

MOVECWHAT:=256-WH0.GRlNCHCXMAS,LlNKR»WH0]»G0T[0])? 
XMASlsXMAS + WHAT; 

m0vefwh0ls30-what, qr i nchc xmas , l i nkr, 0] , got [what ]) * 
pushfr«=xmas + who* 
end; 
end pusher j 

procedure pushffcgrlnch»n.b f y)j value n,b,y* real nt8,yj 

ARRAY GRlNCH[0,0]; 

BEGIN 

RFAL I,J»X; 

DFFINE LINKR - C3?S8]#J 

J!=YJ 

I *=B + NJ 

WHILF B < I DO 

BEGIN 

IF YisB.LlNKC < 225 ThEN 

BEGIN 

M0VE(30tC0DECJ)»GRlNCHCB.LlNKR»Y]); 

J$=vJ -t 30; 

B*=B + 30} 

END 
FLSE BFGIN 

M0VE(X!a256-Y»C0DECJ)»GRlNCHrB,L!NKR,Y])) 

BJ=B + x; 

J:=J + x; 

MOVE(Y«»30"X,COOE(J)»GRINCH[B.LINKR,0]}; 

B:sb + Y; 
J:=J + y; 
end; 
end; 
end pushee? 

strfam procedure fixhdRcf»n); value n; 

begin si*f? sus!-24» dl*loc f* ds«-wdsj 

S i 4-F* 14(Sl*.Si+8); DULOC FJ DS^WqS; 

Di«-r; DUDi + 38; si* loc n? 
s t *- s i + 7 ; ds*chr; 

END FIXHDRJ 

LABEL EOF; 
IF NOT INTOG THEN 
BEGIN 



START OF 



82 IS 



START OF 



83 IS 



93930?0 
9393050 
9393060 
9393070 
9393080 
SEGMENT 
9393090 
9393100 
9393110 
9393120 
9393130 
9393140 
9393150 
9393160 
9393170 
9393180 
9393190 
9393200 
9393220 
9393230 

20 LONG* 
9393240 T 
9393250 
9393260 
9393270 
SEGMENT 
9393280 
9393290 
9393300 
9393310 
9393320 
9393330 
9393340 
9393350 
9393360 
9393370 
9393380 
9393390 
9393400 
9393410 
9393420 
9393430 
9393440 
9393450 
9393460 
9393470 
9393480 

35 LONG* 
9393700 T 
9393710 
9393720 
9393730 
9393740 
9393750 
9394000 
9 394100 
9394200 



008 
008 
008 
008 
008 

***** 
008 
008 
008 
008 
008 
008 
006 
008 
008 
008 
008 
008 
008 
008 
NEXT 
008 
008 
008 
008 

***** 

008 
008 
008 
008 

. 008 
008 
008 
008 
008 
008 
008 
008 
008 
008 
006 
008 
008 
008 
008 
008 
008 

NEXT 
008 
008 
008 
008 
008 
008 
008 
008 
008 



1 50005*3 



1*0005 

150005 

150005 

1*0005 

**** 

250000 

2*0000 

2*0000 

2*0001 

2*0002 

2*0005 

2*0006 

2*0006 

2*0007 

2*0011 

2*0012 

2*00i6 

2*0017 

2*00l7 

SEG 
1 50005 
1*0005 
1*0005 
1*0005 
**** 
3*0000 
3*0000 
3*0000 
3*0002 
3*0003 
3*0003 
3*0005 
3*0005 
3*0011 
3*0012 
3*0013 
3*0013 
31 00 14 
3*0020 
3*0021 
3*0023 
3*0029 
3*0030 
3*0032 
3*0032 
3*0032 

SEG 
1*0005 
1*0005 
1 »0007 
1 *0008 
1*0009 
1*0009 
1*0010 
1*0010 

1*0011 



3 

3 

3 

3 

82 







3 



2 

1 

1 

2 

2 





3 

3 

81 

3 

3 

3 

3 

83 





1 



2 

2 

2 

3 

2 



3 

3 



1 

3 

2 

3 

1 





1 

81 

3 

3 

2 

1 

2 

3 





2 



v„ 



r- 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 

c 

c 

c 
c 

c 



u 



o 
o 
o 
o 



:; o 



;0 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



L-(L + 3)D1V 4; COMMENT L«-NUK. OF WORDS 
FILL SAV1NF0[0»*] WHH 

OCT/700000000000015* 

0CTO25301O477527705. 
0CT005100OO0000O000, 
OCT 0^41 07000 1000062, * 

o *• -l; 

PUSHEF(SAVlNF0»L»a^5)j 

savndx;=l; 



IN OUTER BLOCK; 



START 



84 IS 



FNn; 
no becin 

BEGIN 



RewindccOdiSk); 

if reed=0 then go to eof? 

N*FETCHfMKABSCCODECO)))-l J 

IF BOOLEAN ( FETCH (MKABSCCODFU )))) 



THEN 



PUSHEECSAVlNFO»N»SAVNDX,i); 

savndx:=saVndx +N; 

END ELSE BEGIN 

IF DECKTOG THEN 

STACKHEADtQ*Q+U * l024xNQNSAVNDX+N; 
PUSHEEC INF0#N»N0NSAVNDX»1)I 
NONSAVNDX:=C(NONSAVNDX + N + 29)DIV 30)x30; 



30; COMMENT NUMBER OF DISK SEGMENTS 
PROCEDURES AND ARRAYS; 



end; 

end until false; 

FOF! N*(SaVNdX + 29) D I V 
OCCUPIED BY SAVF 
?F INTOG AND NOT DECKTOG ThEN 
BEGtN % INTRINSIC FUNCTION OPTION 

FOR jlsUSEROPINX STEP 2 UNTIL OPARSIZE DO % IS TIMESHARING SET 

IF OPTiONSrJ] = "PTlMES" T H EN 

BEGIN TSSTOGJ=BOOLEAN(OPTIONSCU+1]); JSsOPARSlZE ENDJ 

I * PRTBASE + 1' J * 0; 

DO IF P,Tl <- PRT[ I] /O THEN 

BEGIN 

J «- J + l? 

SAVjNFO[J,LlNKR.J,LlNKC] «- 
O&GTl [886: t 0] 
*GTit33M8: 15]? 
END UNTIL I :=I +1 > PRTIMAX; 

SAVINF0[0,0] «■ J; % t OF INTR I NSI CS 
SAVNDX «- MAX INTR INSic? 

end else begin 

i«-prtbase; do if gti*prt[I]*o then 

BEGIN IF GTl,tl»5]/LDES THEN 
BEGIN IF CgT1«-gTi&cgT1.[33?15] + L)C33S33!15]),[6J2]/3 THEN 
GTl*GTl&(GTl,rl8Jl5]+N) [181 3311511 

end; 

k0esccgt1»savinf0[ i . u nkr , i , li nkc ] ) ; 

END ELSE SAVlNFOCl.LlNKR,I,LINKCl»-0 UNTIL I « = 1 + 1>PRT I MAX; 

MDESC (0& l[?U7*n»SAVlNF0C0, PRTBASE- 1] )* 

SAVNDX «. 30 y NJ 



END; 



I «• 01 J «• -i; 

IF NOT DFCKTOG ThEN 



09395000 T 

09395100 T 

09395200 T 

OF 5FGMENT * 

09395300 T 

09395400 T 

09395500 T 

4 LONG. 
09395700 T 
09396000 T 
09397000 T 
09397100 T 
09398000 T 
09399000 T 
09400000 T 
09401000 j 
0940?000 T 
09402100 T 
09403000 T 
09404000 T 
09405000 T 
09005500 T 
09406000 T 
09407000 T 
09408000 T 
09412000 T 
09413000 T 
09/114000 T 
09414010 T 
09414020 T 
09414022 T 
09414024 T 
09414026 T 
09414030 T 
09414040 T 
09414050 T 
09414060 T 
09414070 T 
09414080 T 
09414090 T 
09414100 T 
09414110 T 
09414120 T 
09414130 T 
09415000 T 
09415500 T 
09416000 T 
09417000 T 
09417500 T 
09418000 T 
09419000 T 
09419100 T 
09420000 T 
09420010 T 
09420020 T 
09420100 T 
09421000 T 



008 


1*00115 


008 


1 *0013* 


008 


1500145 


***** 


**** 


008 


1500158 


008 


1500158 


008 


1800151 


NEXT 


SEG 


008 


1500158 


008 


1500165 


008 


1500188 


008 


1500198 


008 


J, 5 0019 8 


008 


1500218 


008 


I J00225 


008 


I 8OO28S 


008 


150033* 


008 


I 800348 


008 


I 800365 


008 


150037! 


008 


.500385 


008' 


1500388 


008: 


1500425 


008i 


1500445 


008" 


1500475 


008] 


[500475 


008] 


1500485 


008) 


L 500505 


008j 


,500505 


0081 


500525 


008] 


80053! 


OO83 


50055! 


008J 


800565 


0081 


50061! 


008J 


50063! 


008J 


800655 


0081 


800655 


0081 


500665 


0081 


50069! 


008J 


80070! 


0081 


50071! 


0081 


50073! 


008J 


80075! 


0081 


50076! 


0081 


80078! 


0081 


?008l! 


0081 


50082! 


0081 


500865 


0081 


500895 


0081 


500895' 


0081 


?0092! 


0081 


50097! 


0081 


10101! 


0081 


50102! 


0081 


!0102! 


0081 


501045 


0081 


501045 



3 

2 



84 

2 

2 

2 

81 

2 



1 

2 

2 

2 

1 

1 

3 





3 



1 

1 

1 

3 

3 



1 

1 

1 

2 

2 



2 

2 

2 

3 

1 

2 



2 
3 
3 


2 
1 
1 
2 
2 

2 
3 
1 
1 
1 
1 



c 
c 
c 

c 
c 
c 
c 
c 



n 



c 



u 



C 



O 

o 
o 
o 
o 



o 



( J 



u 






O 

o 



o 



!:-0 

u. 

jo 

£_i 
O 

o 

:: o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



BFGIN 

no 

BFfilN 

IS=PUSheR(SAVINFO»ELBAT»i)J 

j'=j + i ; 

WRlTE(Dj5K.30»EL8AT[*3)J 

end unTiu i > saVndx; 



c 



BEGIN 



END? 



END 
BEGIN 



I J=o; 

WHILE I < NONSAVNDX DO 

I»-PUSHER(!NFO#ELBAT> n; 
j:=J + 1; 
WRITECDISK,30»ELBAT[*3); 

n«-if intog Then ?f tsstor then 

TSSjNTYPE ELSF DCINTYPe ELSE MCPTYPe; 

f ixhdRcdiSk.n)? 

L0CK(DlSK>*); 

el.se 

ELBAT[03*0i I <- 1 6 ? 

DO BEGIN M0VEC8,SAVINF0[I.LINKR.I.LINKC],EUBAT[l])i 
ELBATr9]»B?DCI + 96)&niiifl7H]&(i+96)t23i35Ji]l 
WRlTE(DECKMO»ELBAT[*])> 
END UNTIL I«-J+8>SAVNDX; 
FILL ELBATt*] W?Th 0, 



0CT75 

octoo 

0CT70 
0CT77 
OCTOp 

OcTOO 
0CT04 
OcTOO 
OcTOO 



00000 
04535 
06000 

ooooo 

53010 
5j000 
41070 
40413 
01000 



00000 
53061 
40421 
00000 
47752 
00441 
00100 
10000 
00000 



0012, 
1765, 
0435, 
1 5 » 
7705. 
0046, 
0062, 
0000. 
0101 f 



START 



WRITE(DECK»10,ELBATC*]); 
FLBAT[0] *0&REAL(DECKT0G)[1 I I9tl 7]| 
FOR i * STpP 1 UNTIL Q DO 

BEGIN K «- STACKHEADCI]. [23115]! 
M - STACKHEADCI], [38?i0]! 
FOR J «. STEP 8 UNTIL M DO BEGIN 
M0VE(8,INF0[(J+K),LINKR,CJ+K) 

ELBAT [I]); 
ELBATC9] * B2D(J)&"310»[1J31!17] 
WRITE(DECK,10,ELBAT[*]3 END! 



85 IS 



09421500 

09422000 

09423000 

09424000 

094?5000 

09425900 

094?6000 

09427000 

0942^100 

09427200 

09427500 

09428000 

09429000 

09430000 

09430050 

09430060 

09430075 

09430100 

09431000 

09432000 

09433000 

09434000 

09435000 

09436000 

09437000 

OF SEGMENT 

09438000 

09439000 

09440000 

09441000 

09442000 

09443000 

09444000 

09445000 

09446000 

10 LONG. 



0081 : 0105: 3 
0081 * 0i06 SO 
0081 * 0j06« 
008l 8010680 
0081 « 0109 J 2 
0081 !0n0:0 
■-008l*0na»l 

0081I0M5I3 
0081 * Ol 16; 1 
0081*011880 
0081 J 01 1 8! 
008U0l21*2 
0081 80122: 1 
0081 * 0126; 1 
008180127S2 
00818012881 

0081S0U183 
00818013281 
00818013481 
00818013481 
0081 8013782 
0081801408 1 
0081S0145S2 
0081 8014983 
OO8I8O15183 



LINKC] 



END END 



END! 
END PROGRAM! 



COMMENT THIS SfCTjoN CONTAINS GENERATORS USED BY THE BLOCK ROUTIMF! 
PROCEDuRF DEFINEGFNCMACRO.J): VALUE MACRO, J! BOOLEAN MACRO! REAL, 



81 
73 



IS 
IS 



09447000 
09447010 
09447020 
09447030 
09447040 
09447050 
09447060 
09447070 
09447080 
09447090 
09447100 
09448000 
186 LONG, 
101 LONG. 



BFGIN 
OWN 



J 8 



INTEGER CHARCqUnT, REMCOUnT; 



COMMENT CHARCOUNT CONTAINS NUMBER OFCHARACTORS OF THE DEFINE TH A T WE 
HAVE PUT INTO INFO. REMCOUNT CONTAINS NUMBER OF CHARACT- 



START 



10000000 
10228000 
10229000 
10230000 
OF SEGMENT 
10231000 
10232000 



T 00818015383 

T 00818015383 

T O0818O15383 

T 00811015383 

T 00818015383 

T OO818015383 

T 00818015383 

T 00818015383 

T 00818015383 

NEXT SEG 81 

T 00818015383 

T OO818015783 

T 00818016081 

T 00818016280 

T O08l80l63«3 

T 00818016582 

T 00818016680 

T 00818016983 

T 00818017081 

T 00818017382 

T 00818017983 

T 00818018280 
NEXT SEG 73 
NEXT SEG 3 

T 0003S0505S3 

T 00038050583 

T 00038050583 

T 00038050583 

********** 55 

T OO86SO00080 

T 00868000080 



L 



L 

c 
c 

c 

c 
c 
o 
o 



o 



o 
o 

o 
o 
o 



u 



(. 



(.J 

o 
o 
o 

> 

So 

: ' ; o 
o 
o 
o 



o 



o 

o 
o 
o 
o 
o 
o 

o 



ORS RpMAlNING IN THIS ROW OF JNFOJ 
PROCEDURE PUTOGETHERCCHAR)* REAL CHAR; 

BEGIN 
STREAM PROCEDURE PACK I NF0{ INFO, I SK f P, COUNT, ASK IP » ACCUM ) J 



*■ Sl + 3> 



+ CHARCOUNT > 2047 
TBI* TRUE END 



value iskip»count,asktp; 

BEGIN DI «- INFOJ DI «- Dl + lSKIP? 

si «• ACCUmJSI ♦• Sl+ASKIPJ si 
DS «- COUNT CHR END PACKINF05 
INTEGER COUNT, SKIPCOUNT} 
IF (COUNT «- CHAR,rl2:63) 
THEN BEGIN FUG(H2}{ 
ELSE BEGIN 

IF COUNT > ReMCOUNT 
THEN BEGIN 

SKiPCOUNT «• C0UNT-(C0UNT«-REMC0UNT); 
REMCOUNT <• 2047 END 
ELSE REMCOUNT «. REMCOUNT-COUNT; 
CJl - CHARCOUNT D IV 8 + NEXTJNFOJ 

PACKlNF0ClNF0tGTl.LlNKR#GTl,LINKC3»CHARC0UNT,[45l3]» 
COUNT»0,CHAR)i 

if skipcount # o Then 

PACKINFO(INFOCNEXTINFO.LINKR+1,0]»0»SKIPCOUNT* 
COUNT, GHAR); 
CHARCOUNT ♦ CHARcOUNT+SKjPcOUNT+COUNT END. 

end putogetheR; 



START 



STREAM PROCEDURE SC 

BEGIN DI«-f>J 

IF N S 

IF SC> 

BEGIN 

I 

B 

END END F 
INTFGER 

Real k 
define 

LABEL 

LABEL 

TBI* F 

CHARCO 

DEFINE 

REMCOU 

NFXTIM 

IF J*0 

K«-0} 

BACK: STOPDF 
FICLAS 

SKSCJ NXTELP 
IF MAC 
BFGIN 

I 

FINAL? B 

E 
T 



AN(D»S,Q,N»J)J VALUE J,N»Q? 

di*di + i i ; s i *.s; s t ^s i + 3; 

c=dc Then 
"o» then 

di«-loc j; di*oi+7; 
f sc<dc Then 

EGIN J«-Si;Dl«-J;SI«-LOC Q; S I «-S I + 65 DS*CHR ; 

DI*S>dI«-DI+2JD5*ChR) 

NDJ 

lastResultj 
»n,eLclass; 
i=nxtelbt*s 
final, packing 

BACK'SkSCEXIT} 

alse; 

UNT«-CNEXTfNF0-LASTlNF0)x8J 

ctr «• i; lastresult * 25 

NT <- (256 - NEXTINFO MOD 256) x 85 
F0«-LASTINF0; 
THEN N*TaKe(LASTINF0+1), [12:6]l 

FINE«"TRUE; 
S«-TABLe(NXTfLBT)J 

t*nxTelbt-i; 

RO THEN 

IF ELCLASS=COMMA THEN 

E K=0 THEN 

EGIN PUTOGETHERc w l#0000»); GO TO EXIT END 

LSE GO pacKin; 

F ELCLaSS=LeFTPaREN OR ELCL ASS=LFTBRKET THEN 



67 



10233000 


T 


0086 


50000 


50 


10234000 


T 


0086*0000 


50 


10235000 


T 


008650000 


50 


10236000 


T 


008650000 


50 


F SEGMENT 


********** 


87 


10237000 


T 


0087 


50000 


50 


10238000 


T 


0087 


50000 


50 


10239000 


T 


0087 


50000 


'1 


10240000 


T 


0087 


50001 


5 3 


10241000 


T 


0087 


50002 


»1- 


10242000 


T 


0087 


50002 


> 1 


10243000 


T 


0087 


50004 


!1 


10244000 


T 


0087 


10007 


52 


10?45000 


T 


0087 


50009 


'2 


10246000 


T 


0087 


50009 


12 


10247000 


T 


0087 


JOOlO 


10 


10248000 


T 


0087 


50012 


10 


10249000 


T 


0087 


50012 


'1 


10250000 


T 


0087 


50016 


>0 


10251000 


T 


0087 


50018 


•o 


10252000 


T 


0087 


50021 


2 


10253000 


T 


0087 


50022 





10254000 


T 


0087 


!0023 


2 


10255000 


T 


0087 


S0026 


1 


10256000 


T 


0087 


50027 


2 


10257000 


T 


0087 


10029 


2 


32 LONG, 


NEXT ! 


>EG 


66 


10257100 


T 


0086 


10000 


'0 


10257200 


T 


0086 


10000! 





10257300 


T 


0086 


10001 


2 


10257400 


T 


0086 


looor 


3 


10257500 


T 


0086. 


0002! 


1 


10257600 


T 


0086 


0003! 


3 


10257700 


T 


0086 


10004! 





10257800 


T 


0086 


0006! 





10257900 


T 


0086 


0006! 


1 


10258000 


T 


0086 


0007! 


2 


10258100 


T 


0086 


0007! 


2 


10258200 


T 


0086 


:0007! 


2 


10258300 


T 


0086 


.00071 


2 


10259000 


T 


0086 


0007! 


2 


10260000 


T 


0086 


0007! 


2 


10261000 


T 


0086 


0007! 


3 


10262000 


T 


0086! 


00095 


3 


10263000 


T 


0086! 


0011! 


2 


10263100 


T 


0086. 


0013! 


2 


10263110 


T 


0086i 


00145 





10263200 


T 


0086! 


0017! 


3 


10263300 


T 


0086! 


0018J 





10263400 


T 


0086 


00191 


3 


10263500 


T 


0086! 


00215 


2 


10263600 


T 


0086! 


0022? 





10263700 


T 


0086! 


0022' 


1 


10263800 


T 


0086! 


0023! 


3 


10263900 


T 


0086! 


00255 


2 


10264000 


T 


0086! 


00295 


2 


10264100 


T 


0086! 


00295 


2 



c 
c 
c 
c 
c 
c 
c 
c 
c 

r 
\~- 

c 
c 
c 
c 
c 
c 
o 
o 
o 
o 



o 

o 
o 
o 
-o 

JO 

u 

L_ 

p 

'O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



end; 



FG IN K*K + D GO TO PACKIN END5 

F ELCLASSsRtPARfN OR ELCLASSaRTBRKFT THFN 

f k«.k-i<o Then go final else go packin; 

F ELCLASSsSfMICOLON THEN 

BEGIN FL.AGC142)' GO TO FINAL END ELSE" GO 



PACKIN 



PACKlNs 
COMM 



F J*0 THEN 

F ACCUMCt] , C 128 63-l«N THEN 

SCANClNFOtLASTINFO, linkr 
ACCUMC13»N+770»N»J)I 



.LASTINFO, LINKC] 



EXITS 



IF RESULT 

THEN BE 

ENT INSERT " M A RKS 

PUTOG 

PUTOG 

PUTOG 

FLSE begi 

IF BOOL 

THEN 
PUTOGFT 
IF TBI TH 
LASTRESUL 
IF MACRO 
IF ELCLAS 
THEN BE 
IF ELCLAS 
IF DEFINE 
THEN BE 
IF E 
DEFI 
OEFINE'CTR* 0; 
NEXTiNFO «-CCHA 
END DEFINEGEN; 



FOR 1"0000; 



= 4 
GIN 

- 2130706432 \S DECIMAL 
ETHFRC2130706432)} 
ETHFRCACCUMC 1]); 
ETHFRC2130706432) END 
N 

EAN(RESULT) AND BOOLE AN (LASTRESULT ) 
PUT0GEThER("1 0000»)> COMMENT INSERT 

heRcaccuM[1]> end; 
en go to exit; 
t * result; 
Then go back; 

SsDECLARATORS 
GiN DEFINECTR 
S * CROSSHATCH 
CTR * 1 

gin stopdefine «- true; 
lclass«-table(i)5«c0mma then 
nectr«-definectr-ij go sksc end; 

rc0unt+7) div 8+nextinf0; 



BLANK, 



AND ELBAT[i], ADDRESS = DEFIN 
*■ DEFINECTR + U GO BACK END; 
THEN GO BACK; 



EV 



PROCEDURE DBLSTMT; 
RFGIN 

rfal s.t; 

LABEL Ll»L?»L3,EXiT; 

s*o; 

IF STEPI^LEFTPAREN T H EN ERRC281) 
ELSE 
LI I BEGIN 

IF STEPl=C0MMA THEN 

begin 

0PT0g*TRUe* 

if stePi-adop Then st f pit; 
emitnum(nlo); 

emltnumcif elbat [ !» 1] . address =sub then -nhi else nhi>» 

dptog«-false; 

stepit; 

go to L2; 
end; 

IF TAHLE(I+1)=C0MMA ThEN 
BEGIN 
IF ELCLASS=ADOP OR ELCLASS=MULOP THEN 



86 



START 



10?64?00 


T 


0086J0030U 


10264300 


T 


0086S0033J2 


10264400 


T 


0086J0034! 1 


10264410 


T 


OO86JOO38SO 


10264420 


T 


0086500385 1 


10264500 


T 


008650040? 1 


10264600 


T 


0086J0040JI 


10264700 


T 


0086*0041*2 


10264800 


T 


008650043*3 


10264900 


T 


0086$0046:i 


10264910 


T 


0086J0048S 1 


10265000 


T 


008650049:2 


10266000 


T 


008650049S2 


10267000 


T 


0086S0050:0 


10268000 


T 


008610050:0 


10269000 


T 


00865005U2 


10270000 


T 


00865005250 


10271000 


T 


00865005251 


10272000 


T 


008650055S2 


10273000 


T 


00865005552 


10274000 


T 


00865005752 


10275000 


T 


00865005850 


10276000 


T 


0086S005952 


10276500 


T 


00865005953 


10277000 


T 


00865006051 


10278000 


T 


00865006251 


10279000 


T 


00865006752 


102*0000 


T 


00865006850 


10281000 


T 


00865006851 


10282000 


T 


00865007050 


10283000 


T 


00865007250 


10284000 


T 


00865007450 


10285000 


T 


00865007553 


10286000 


T 


00865007850 


S 81 LONG. 


NEXT SEG 3 


12002000 


T 


00035050553 


12003000 


T 


00035050553 


12004000 


T 


00035050553 


of segment 


********** 98 


12005000 


T 


00885000050 


12006000 


T 


00885000050 


12007000 


T 


0088500005 1 


12008000 


T 


00885000251 


12009000 


T 


00885000352 


12010000 


T 


00885000450 


12011000 


T 


0088:0005:2 


120J2000 


T 


0088S000553 


12013000 


T 


00885000650 


12014000 


T 


008850008S0 


12015000 


T 


00885000952 


12016000 


T 


00885001352 


12017000 


T 


00885001450 


12018000 


T 


00885001451 


12019000 


T 


00885001552 


12020000 


T 


00885001552 


12021000 


T 


0088500165 1 


12022000 


T 


00885001752 



c 



c 
c 



c 



c 



n 



c 



c 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 

p 

6 

to 
:: o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



L2 

13 



BEGIN 

EMrTOfFLBATr I3,ADDRFSS+1)J 

IF S*S-1<0 THEN FLAGC282); STEPH; 

GO TO L3J 

end; 

IF ELCLASSsASSlGNOP THEN 
BEGIN 

IF S*i THEN FLAG(283)i S*0; STEPIT; 
DO 

BEGIN 
IF ELCLASS /COMMA THEN BEGIN E«R(284);G0 EXIT END; 
STjtPjt; 

IF ELCLASS< T NTID AND ELCLASS>RE AL I D -THEN 
BEGIN EMlTNCELBATtlD. ADDRESS); STEPlT fNO 

ELSE VARIABLECFD? 
EMITO(STD) END UNTIL S*S+is2 j 
IF ELCLASS/RTPAREN THEN ERR(285) ELSE STEPIT; 

go to exit; 
end; 
if elclass<intid and elclass>hoo id then 

BEGIN 

checkfRct«-flbat[i]); 

stepit;stepiT; 

aexp; 

EMlTVfT. ADDRESS); 
GO TO 12', 
END? 
END ; 

aexp; 

IF ELCLASSjicOMMA THEN BEGIN ERR(284);G0 EXIT 

END? 

stepit? aexp; emito(Xch); 

5«-S+i ; 

IF EULASS*COMMa THEN BEGIN ERR(284);G0 TO EXlT END? 

GO TO Ll? 



EXITSEND 

FND DBLSTMT; 

REAL PROCFDURF F I XDEFI NE I NFO ( T ) ; VALUE T; REAL TJ 
BEGIN REAL K»S,P,j,EL? 

STREAM PROCEDURE SET f S, D# !<» E ) ? VALUE K»E? 

begin susisi*si + h;di*d;di*di + 3;ds*k CHR? 

Sl-LOC E? SUSI+6; DS<-2 CHR; 

end; 

macroio*true; 

p*cf i xdfflne|nfo*t)» address? 

k^-count; 
s«-scram? 

STREAMTOG«-TRUE K STReaMT0GC1»3»45] ? 

stopoefine«-truf; 
el*tablecnxtelbt); 

NXTELBT*NXTELBT-i; 

if el/leftparen and el^lftbrket then 

FLAGCUi) 

else do begin j*j+i; 

SET(!NF0rT.LjNKR,T,LlNKC3,ACCUM[n.K»6/|xj+l2); 



88 IS 



START OF 



12023000 


T 


0088 ! 0019 ; 2 


12024000 


T 


0088S0019 


:3 


12025000 


T 


008850021 


:3 


12026000 


T 


0088:0025 


•2 


12027000 


T 


0088?0025 


S3 


12028000 


T 


008850025 


53 


12029000 


T 


0088J0026 


so 


12030000 


T 


008810026 


? 1 


12031000 


T 


008850030 


so 


12032000 


T 


0088J0030 


:0 


12033000 


T 


0088:0030 


JO 


12034000 


T 


0088:0032 


?1 


12035000 


T 


0088:0033 


!2 


12036000 


T 


0088:0034 


»1 


12037000 


T 


0088J0037 


'2 


12038000 


T 


0088:0038 


' 1 


12039000 


T 


0088:0041 


S3 


12040000 


T 


0088:0044 


'1 


12041000 


T 


0088:0045 


!2 


12042000 


T 


008850045 


?2 


12043000 


T 


008850046 


1 


12044000 


T 


0088:0047 


2 


12045000 


T 


008850048 


1 


12046000 


T 


0088«0049 


3 


12047000 


T 


0088:0050 





12048000 


T 


008850051! 


3 


12049000 


T 


0088500521 





12050000 


T 


006850052' 





12051000 


T 


0088500521 





12052000 


T 


0088:0052' 


1 


12053000 


T 


0088500551 


2 


12054000 


T 


008850055J 


2 


12055000 


T 


0088:0056! 


1 


12056000. 


T 


0088:00585 





12057000 


T 


0088:0061! 


3 


12058000 


T 


008850062! 





12059000 


T 


0088:0062? 





65 LONC 


i » 


NEXT SEG 


3 


12101000 


T 


0003:0505: 


3 


12102000 


T 


O003«0505? 


3 


SEGMENT 


********** 


89 


12103000 


T 


0089500005 





12104000 


T 


008950000: 





12105000 


T 


0089:0001? 


3 


12106000 


T 


008950002? 





12107000 


T 


0089:0002: 


1 


12108000 


T 


0089:0003: 


3 


12109000 


T 


0089J0005? 


3 


12H0000 


T 


008950006: 





12110100 


T 


0089:0007: 


2 


12111000 


T 


0089:0008: 


1 


12112000 


T 


0089500095 


3 


121 13000 


T 


0069?00l0: 


1 


12114000 


T 


008950012: 





12115000 


T 


0089:00i3: 


3 


12116000 


T 


oo89:ooi4: 


1 


1.2117000 


T 


0089:ooi7: 


2 






v. 



c 



r 



c 
c 

c 
c 

c 



o 





o 



o 
o 
o 
o 



u 

O 

o 
o 



„-0 



3° 
:: o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



ACCUMCl],Ci2t6]*K+Z; 
ACCUM[0]*0; 

accumcO],class*dffinedid; 

COUNT*K+?J 

SCRAM*ACCUMC1] mod 125; 
E* 

definegenctrue»0); 
end until el«.elbat[nxtelbtj,class*comma» 
if el^Rtparen and el*rtbrket or j*p then 
macroid<-false; 

STREAMT0g*STREAMT0G, [1*453 ; 



FUAG(Hl); 



END? 



procedure scatterelrat; 

BEGIN 

Real t? 



END 



T * ELBATfUJ 

KLASSF «• T. CLASS/' 

FORMALF «• BOOLEANfT. FORMAL); 

VONF «• BOOLEAN(T.VO); 

LEVELF * T,LVL; 

ADDRSF *■ T,ADDRfSs; 

incrf «- t.incr; 
Linke *• t.link; 
scatteReubat; 



39 



start 



PROCEDURE 
TF 

define 



chksob; 

6TAHJ*J> 



90 



n*o then flagc23)* 



ADDCs532480#, 
SUBC=158i056#» 

emitstore=emitpaiR#; 
procedure purgecstopper); 
value stopper? 
real stopper; 



begin 

INTEGER 



pointer; 



LABEL 
REAL J 
POI 

WHILE 
DO 
BFG 



RFCOV; DEFINE EULASS 

,n,ocr,tl,add; 
nter«-lastiwfo; 
pointer > stopper 



e klassf#; 



START 



IN 



if elclass«-cgtutakecpointer)).class=nonlitno 

then begin 

ncii*ncii-i; 

emitnum(TakfcpointeR + d); 

EMiTST0RE(MAXSTacK»S7D)J 

maxstack«-cg«-maxstack) + i* 
j«-l; l*gti;linki 

DO 

begin 

GTa«-GET(L); 
EMlTV(G) 
END 



12118000 


T 


0089:0022:0 


12119000 


T 


0089J0025S2 


12120000 


t 


0089S002650 


12121000 


T 


0089J0028: J 


12122000 


T 


0089:0030:0 


12123000 


T 


0089:0031*3 


12124000 


T 


0089*0032*0 


12125000 


T 


0089:003352 


12126000 


T 


0089:0035*3 


12127000 


■T 


0089*003953 


12127100 


T 


0089:0040:0 


12128000 


T 


0089:0042*0 


S 46 LONG, 


NEXT SEG 3 


13197000 


T 


0003?0505:3 


13198000 


T 


0003*050553 


13199000 


T 


0003*05058 3 


OF SFGMENT 


********** 9Q 


13200000 


T 


0090*0000*0 


13201000 


T 


0090*0001*2 


13202000 


T 


0090*0002*0 


13203000 


T 


0090*0003*3 


13204000 


T 


0090*0004: 1 


13205000 


T 


0090:0006:0 


13206000 


T 


0090:0007*2 


13207000 


T 


0090J000851 


13208000 


T 


0090*000953 


S 12 LONG, 


NEXT SEG 3 


13209000 


T 


0003*0505*3 


13P10000 


T 


0003*0505*3 


13211000 


T 


0003*050953 


13212000 


T 


0003*0509*3 


13213000 


T 


0003*050953 


13214000 


T 


0003*050953 


13215000 


T 


0003*0509:3 


13216000 


T 


0003*0509: 3 


13217000 


T 


0003*050953 


13218000 


T 


0003*0509: 3 


13219000 


T 


0003*0509:3 


of segment 


********** 9j 


13220000 


T 


0091*000050 


13221000 


T 


0091 JOOOOJO 


1 3222000 


T 


0091 ?0000:0 


13223000 


T 


009i:0000» 1 


13224000 


T 


009l?000l*2 


13225000 


T 


0091 S0002J0 


13226000 


T 


0091 *0002*0 


13227000 


T 


0091 ;0004* 1 


13228000 


T 


009150005*3 


13229000 


T 


0091:000651 


13230000 


T 


009i :0008:i 


13231000 


T 


0091 *0009;3 


13232000 


T 


0091*0011*2 


13233000 


T 


0091 50013*2 


13234000 


T 


0091*0014*0 


13235000 


T 


0091 S0014:Q 


13236000 


T 


009i$00l5*2 


13237000 


T 


009l?00l5»3 



c 

c 



L. 



c 
c 

c 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 



o 
o 
o 
o 

p 

o 

to 
u o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

.-■"*s, 

u 



ELSE 

RFC, I 

IF N 

TH 



ST 



LAS 
NEX 
END? 



RECnVJ 



XRF 
GT2 
GT3 
ArKHE 
POf 



UNTIL CL*GT4)c4095j 
L'JJ 

pointer*potnteR-gti. incr 
fnd 

N 

OT BOOLEANCrJl, FORMAL) 
EN BEGIN 
IF ELCLASS s LABFLIO 
THEN BEGIN 

ADO *• GTl.AOnRESS; 

IF NOT BOOLEAN(OCR*TAKE(GIT(POINTER))).CU1] 
THEN TF 0CR.[36J12] * OR ADD * 

THFN BFGIN GT1 <- 1601 GO TO RECOV FNDJ 

if add * o Then 

PROGDESCBLDRf ADD#TRUE,OCK,[36llO]»LDES) END 
ELSE IF FALSE 

THEN BEGIN 

IF TAKEcPOlNTER+1) < 

THEN BEGIN GT1 «- 162? GO TO RECOV END,' 
OCR *CJ «• TAKE(G1T(P0INTER))),C24I12JJ 
N * GFT( C J«-J , r 36 » 12J) + 4); TL «■ L; 
IF ADD *■ GTl, ADDRESS * 

then begin 

IF OcR * 

then begin l«-ocr-2? callswitch(PointeR)j emitocbfw)*fnd» 

U*J+lU FMITLC15); FMlTOCRTS); 
FOR J «• 4 STEP 4 UNTIL N 
DO BEGIN 

FMITLCGNATCGET(L.)X4096 + GET(L+1)))» 
EMITOCRTS) END END 
ELSE BFGIN 
L ♦• J + 1 3 ; 

FOR J * 4 STEP 4 UNTIL N 
DO BEGIN 

fiTl «- GETCL)x4096 + GET(L + l)J 

gogfn(gti»bfw) endjend; 

L «• TL END 
ELSE IF ELCLASS > PROClD AND ELCLASS < INTPROCID 
THEN IF TAKECPOlNTER+1) < 

then begin gti «- i6i? 

M0VE(9»INF0f POINTER. LI NKR» POINTER, LI NKC 3 tACCUM). 

Q *■ accumcu; flagcgtd; errortog «- true end 



END! 
FDUMPfP 
••TAKeCP 
-GT2.PU 
ADCCQ&G 
NTER*P0 

FND 



OTNTER); X DUMP XREF INFO 

OlNTER+DJ 

RPTJ 

T2[ 12: 12? 36]) MOD 125 ] -TAKEC PO I NTER > . L I NKJ 

INTER-GT3 



xj io- 



end ; 
Tjnfo 

TtNFO 



♦•pointer; 

♦STOPPER 



91 IS 



PROCEDURE FJ 



13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
1 
13 



238000 
239000 
240000 
241000 
242000 
243000 
244000 
245000 
246000 
247000 
248000 
249000 
250000 
251000 
252000 
252500 
253000 
254000 
255000 
256000 
257000 
258000 
259000 
260000 
261000 
262000 
263000 
264000 



265000 r 



266000 

267000 

268000 

269000 

270000 

271000 

272000 

273000 

274000 

277000 

278000 

279000 

2A0000 

281000 

282000 

283000 T 

283500 C 

284000 

285000 

286000 

287000 

288000 

289000 

290000 



291000 T 
292000 T 
05 LONG, 
293000 T 



009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
009 
NEXT 
0003 



5001650 



50017 

S0018 

!00l8 

'0020 

J0020 

J0022 

50022 

50023 

50023 

?0024 

50026 

S0028 

50030 

50033 

50033 

50036 

50037 

50037 

5 0038 

50041 

5 0043 

50047 

50048 

50049 

50049 

50049 

50053 

50056 

50056 

50057 

5 0060 

50063 

50066 

50067 

50067 

50068 

50071 

50074 

50075 

50078 

50080 

50062 

50086 

50089 

50089 

50091 

50092 

50094 

5 0097 

50098 

S0099 

50099 

50100 

50100 

SEG 

505095 3 



c 
c 
c 
c 

.■*— s 

c 
c 
c 
c 



c 

c 
c 
c 
c 

c 



( ) 



O 

o 

— s 

-O 

c> 
: o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



COMMFNT 

f is the procedure which places an entry in info and 
hooks it into stackhead. the previous stackhead link 
t s saved in the link of the elbat word in the new entry 
f prevents an entry from overflowing a row, starting at the 
beginning of the next row if necessary 

BEGIN 

REAi. WORDCOUNT#RlNX; 



IF 



THEN 



RINX*(NEXTINF0+W0RDC0UNT*(C0UNT+18)DIV 8 
NEXTINFO.LINKR 
BFfilN PUTM?5i(RINXx256-NEXTINFO)[27U0*83»NEXTINFO)> 
NfXTINf0«-256xRiNX EN|)J 
IF SPECTOfi THEN 
IF NOT MACROID THEN 
UNHOOK? 



).LINKR f 



ACCUMCOJ. T 

IF NOT INL 

ACCUMfO], 



ACCUM 

MOVECWORDCOUNT* 

IF XRE 

?! IF CA 

% R 

BEG I 

XR 



IF 
EL 



ru, 

ACCU 
F Th 
CCUM 
OOLE 
N 

EFIN 

IF S 

XR 

ELSE 

(( 

SPE 

XMAR 

SE 

XREF 



% 
% 



END 
FLSE % DE 
XREFINF 
ELSE 

IF DEFIN 

xrefin 
last info* 

NEXTlNFO 



NCR«-WORDCOLjNTJ 

TNETOG OR MACROID THEN BEGIN 

LINK «-STACKHE , AD[SCRaM]JSTACKHEADCSCRAM]*NEXTtNFOJ 
END? 

purpt«-nextinfo-lastinfoj 

m» info [next info. linkr, next info, li nkc3)? 

fn % make declaration reference * 

ro], class * definedid or not % 

an(accumfo], formal)) then % not define parameter* 

X 
FOCNEXTINFO] '= % 

PECToG THEN % 

EFINFOCELBATtin % 

% 

XLUN is XLUN + l) K SGNO SEGNOF)* % 

CTOG THEN % JUST GO BACK AND FIX UP XREF ENTRY X 
KCDECLREF) 3! 

% 
• CARDNUMBERtlF PTOC. AND NOT STREAMTOGJ5 
ORMALREF ELSE DECLREF); * 

3! 
PARAMfTeRS - DONT CROSS REF, % 

TjNFO] 8= % 

% 

then % we are doing xrefing % 

1 la 01 * 



ITCNEXT1NF0 
THEN N 



FINE 
0[NEX 

iNG.r 
FOCNE 
NEXT I 
♦ NEXT 



1MJ 

XTiNFO 

NFOJ 

INFO+WORDCOUNT 



end; 

PROCEDU 
COMMENT 



RE FNTRYcTYPF)? 

value type? 
real type; 



fntry assumfs that t is pointing at an identifier which 
is rftng declared and makes up the elbat entry FOR it 

ACCORD To TYPE .IF THE ENTRY \S AN ARRAY AND NOT 
A SPECIFICATION THEN A DfSCRJPTOR IS PLACED IN THE STACK 
FOR THE UPCOMING COMMUNICATE TO GET STORAGE FOR THE ARRAYCS) 



BEGIN 





13294000 


T 


0003*0509*3 






13295000 


T 


0003*0509*3 


/ \ 




13296000 


T 


0003*0509*3 


u 




13297000 


T 


0003*0509*3 






13298000 


T 


0003*0509*3 


■-"> 


• 

> 


13299000 


T 


0003*0509*3 


o 




13300000 


T 


0003*0509*3 






13301000 


T 


0003*0509*3 


o 


START 


OF SEGMENT 


********** 92 




13302000 


T 


0092*0000*0 






13303000 


T 


0092*0003*2 


c 




13304000 


T 


0092*0003*2 




13305000 


T 


0092*0007*3 






13305100 


T 


0092*0009*2 


.-^l 
/ 




13305200 


T 


0092*0009*2 


*w 




13305300 


T 


0092*0010*0 






13306000 


T 


0092*0011*2 


c 




13307000 


T 


0092*0011*2 




13307500 


T 


0092*0013*3 






13308000 


T 


0092*0015*2 


J ~. 




13308500 


T 


0092*0019*2 


u 




13309000 


T 


0092*0019*2 






13310000 


T 


0092*0022*0 


.**•■•, 


1 1 o- 


13310050 


C 


0092*0025*3 


'•w 


110- 


13310075 


C 


0092*0026*1 




110- 


13310080 


C 


0092*0026* 1 


/"*"■" 


1 10- 


13310100 


C 


0092*0026* 1 


( 


110- 


13310200 


C 


0092*0027*2 




1 10- 


13310300 


C 


0092*0029*3 


c 


1 1 0- 


13310350 


C 


0092*0030*0 


110- 


13310400 


C 


0092*0033*3 




1 10- 


13310450 


C 


0092*0034*0 


— 


no- 


13310500 


C 


0092*0037*2 


c 


110- 


13310525 


C 


0092*0037*2 




110- 


13310550 


c 


0092*0042*0 


r- 


110- 


13310575 


c 


0092*0042*0 


L, 


110- 


13310580 


c 


0092*0042*0 




110- 


13310600 


c 


0092*0047*2 


,_ 


110- 


133)0700 


c 


0092*0047*2 


L. 


1 1 0- 


13310750 


c 


0092*0047*2 




1 1 0- 


13310800 


C 


0092*0047*2 


c 


uo- 


13310900 


c 


0092*0047*2 


.110- 


13310950 


c 


0092*0048* 1 






13311000 


T 


0092*0052* 1 


l"~ " 




13312000 


T 


0092*0053*2 


v_ 




13313000 


T 


0092*0053*3 
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NEXT SEG 3 


/"*"*' 




1 3314000 


T 


0003*0509*3 


L 




13315000 


T 


0003*0509*3 






13316000 


T 


0003*0509*3 


*—* 




13317000 


T 


0003*0509*3 


L 




13318000 


T 


0003*0509*3 






1331 9000 


T 


0003*0509*3 


, . 




13320000 


T 


0003*0509*3 


L. 




13321000 


T 


0003*0509*3 




• 
» 


13322000 


T 


0003*0509*3 


/— 




13323000 


T 


0003*0509*3 


■^_ 



v_ 



o 



V- 



c 



O ' 



■u 
O 

o 

-O 

> 

■Jo 
Jo 

O 

O 

O 

O. 

O 

o 
o 
o 
o 
o 
o 



J*0I 1*1- 
DO 

BEGIN 

s 

! 



1 



TOPDEFI 
F FORMA 
THEN 
BEGI 
IF 



KLaSSF'TYPeJMAK 

END 

FLSf 

BEGI 

IF 

THEM 

IF 

T 

VON 

FORM 

IF XREF 

XREFP 

YPE? MA 

!MALF*PT 

<DDRSF<-P 

F STOPq 

then a 



ne «-true; stepi t; 

UF*SPECTOr 



scatteRelbat; 



N 

elclass/secret 
then flag(002); 

BUP + BljP + 1 
eupaccum; EJJ*J+1I 



KLaSSF«-T' 

IF ((FORI 

THEN Al 

FLSF II 



N 

FLCLA 

IF EL 

LEVEL 

HEN F 

F«-P2; 

ALF«-P 

AND N 

T*XRE 

KEUPA 

06) 

J«-PJ + 

SP 

ODRSF 



SS>mMAX AND ELCLASS<MUL0P %\\2- 

CLASS* POLiSHV THEN ELCLASS.-TYPE ELSE FLA6(3)J 
F=LEVEL 
LAG(00i >; 



tog; 

ot spectog then % erase 

fpt-realcelbat[i]#0)j % 

CCUMJEJ j*j+i; 

R(STREAMT0G AND NOT STOPGSP)) 

1 



PREVIOUS XREF ENTRY. 
GET RID OF LAST CREF 



AND NOT P2 



pUTfTA 

END END 



♦ 

ELSE ADORSf «sGETSP ACE CP2» LAST ! NFO+t )1 
KE(LASTINF0)& ADDRSFt 16 5 37 5 1 1 ] , LAST I NFO ) ; 



until stepi#comma or stopentry; gfaicoj^j 



end; 
PROCEDURE unhook; 
comment 

UNhOOK ASSUMpS THAT THE WORD 
FOR APARAMETER. ITS JOB fS TO 
E WILL WORK AS NORMAL, 
BEGIN 

real linkt.a.linkp; 



IN fLBATCI] 
UNHOOK THAT 



POINTS TO A 
FALSE ENTRY 



psuedo entry 

SO THAT 



labfl l; 



START 



linkt«-stackheadcscram] ; linkp*elbatci],linkj 
if linkt = linkp then stackhead[scram]«-takecljnkt).l!nk 

ELSE 
IF A*TAKE(LINKT),LINK=LINKP 

THFN PUTC(TAKECLINKT))4(TAKECA))[35!35U33.LINKT) 
ELSE BEGIN LINKT*A; GO TO L END! 



end; 



procedure makeupaccum; 

■ BEGIN 

IF PTOG 

THEN GT1.4-LEVFLF ELSe GTULEVeL; 
ACcUMrO]* ABSfELBATcn & KL ASSp [ 2 ! 4 1 : 7 ] & REAL ( FORM ALF ) [ 9 8 47 ? l] 

& REALCV0NFH10S47! U & GTi C 1 1 S 43t 53 &ADDRSF[l6:37t 1 
) 



93 IS 



n 



1332 
1332 
1332 
13 32 
1332 
1332 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1334 
1334 
1334 
1334 
1334 
1334 
1334 
1334 
1334 
1334 
1334 
1334 
1334 
13 35 
1335 
1335 
1335 
1335 
1335 
1335 
1335 
1335 
1335 
OF SEG 
1336 
1336 
1336 
1336 
1336 
1336 
1336 
1336 
17 
1336 
1336 
1337 
1337 
1337 
1337 
1337 



4000 
5000 
6000 
7000 
8000 
9000 
0000 
1000 
2000 
3000 
3500 
4000 
5000 
6000 
7000 
8000 
9000 
0000 
1000 
1100 
1200 
1300 
2000 
3000 
4000 
5000 
6000 
7000 
8000 
9000 
0000 
1000 
2000 
3000 
4000 
5000 
6000 
7000 
8000 
9000 
MENT 
0000 
1000 
2000 
3000 
4000 
5000 
6000 
7000 

LONG 
8000 
9000 
0000 
1000 
2000 
3000 
4000 



0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



******* 



0093 
0093 
0093 
0093 
009 3 
0093 
0093 
0093 
NEXT 
0003 
0003 
0003 
0003 
0003 
0003 
0003 



50509 
80512 
50512 
80512 
80513 
80513 
80514 
80515 
80515 
»05l7 
80517 

80521 
80521 

80521 
$0521 
50522 
80527 
80527 
80529 
80530 
80530 
80532 
8 0534 
80537 
80539 
50541 
80543 
50544 
50547 
'0549 
50549 
80549 
80552 
80553 
50553 
80553 
50553 
50553 
50553 
50553 
*** 

5000050 
8000080 
800025 1 
5000583 
8000650 
800085 1 

8001250 
800148 1 

SEG 3 

8055382 

5055352 

5055352 

J055480 

5055681 

5055983 

5 056250 



3 



3 
3 
1 
2 
2 
2 
2 
2 
2 
2 
3 
1 
2 
3 
2 

1 

1 
3 
3 
2 
2 


2 
3 
3 
3 

2 
2 
2 
2 
2 
2 
2 
93 



C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 









o 

o 
o 
o 
l o 
So 

'J 

D 

: o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



end; 
procedure arrae; 

BEGIN 

intfrfR saveinfo; 

LABEL BETA1? 

TYPEV*REALARRAYir)J 

IF Tl*GTAlCJ*J-i ]=0 THEN J*J+1 

ELSE 

IF TlaOWNV THEN 

BEGIN 

P2«.true; if spectog then 

FLAGC13) 
END 

ELSE 
.. - TYPEV*REALARRAYID+Tt-REAIVJ 

BFTAi: ENTER(TyPEV)5 

IF FLCLASS/LFTBRKET ThEN FLAGC16); 

if stepulitno then 
Reg in 

SAVEINFO«-ELBATcn.ADDRESS; 

IF STEPl5«RTBRKET ThEN FLAG(53)5 

fillstmtcsaveinfo); 
saveinfo-1. ; 

END 

ELSE 
BEGIN IF ELCLASS^ASTRISK ThEN FLAG(56)J 

saveinfo*i; 

while stepi*rtbrket do 

begin if elclass?icomma and 

stepi/astrisk then flagc56); 
saveinf0*sa\/einf0 + 1 

ENDSSTEPlTj 

END? PUT ( T AKE (LAST I NF0)&S AVE INFO [27840:8], LAST INFO); 

J «• 1 J GTA1C0] «• J 

TF fLCLaSS=C0MMa THEN BEGIN STEPlTJfiO TO BETA1 END 

end arrae; 

PROCEDURE PUTNfjUMPfX); 
VALUE XJ 
REAL XJ 
BEGIN 

infocnextinfo,linkr,nextinfo,linkci«-xj 
nextinfo-nextinfo+i 
. end ; 

PROCFDllRF JUMPCHKXJ 

commfnt this procedure is called at the start of any executable code 
which t h e block might emiT.it determines whether any jumps 
arroijnd nonexecutable code may be waiting and whether it 
is the first executable code; 

if not spectog them 

BEGIN 

IF AjUMP 
THEN 
BEGIN ADJUST; 

EMITBCBFW,SAVEL>L) 



START 



94 









u 


13375000 


T 


0003»0562:i 




13376000 


T 


00038056353 


/"""'' 


13377000 


T 


000380563J3 


u 


13378000 


T 


OOO38056353 




OF SEGMENT 


********** 94 


^"\ 


13379000 


T 


00945000080 


'O 


13380000 


T 


00948000050 




13381000 


T 


0094800008 1 


f ■'. 


13382000 


T 


00945000480 


o 


13383000 


T 


00945000552 




13384000 


T 


00945000680 


i'*~**\ 


13385000 


T 


0094500065 1 


o 


13386000 


T 


00945000783 




13387000 


T 


00948000851 


—. 


13388000 


T 


00945000982 


u 


13389000 


T 


00945000952 




13390000 


T 


00945001182 


t'""\ 


13391000 


T 


0094800128 1 


u 


13392000 


T 


0094500145 1 




13393000 


T 


00948001583 


o 


13394000 


T 


00948001650 


13395000 


T 


00948001783 




13396000 


T 


00948002050 


.. 


13397000 


T 


0094800208 i 


u 


13398000 


T 


00945002183 




13399000 


T 


0094500215 3 


f"- 


13400000 


T 


009450021*3 


^ 


13401000 


T 


00945002450 





13402000 


T 


OO945002451 


r^ 


13403000 


T 


00948002681 


i 


13404000 


T 


00948002752 




13405000 


T 


00945002953 


~ 


13406000 


T 


00945003050 


L. 


13407000 


T 


00948003250 




13408000 


T 


00945003280 


•'"* 


13408500 


T 


00948003451 


L- 


13409000 


T 


00945003651 




13410000 


T 


OO948O03881 


,-, 


S 41 LONG. 


NEXT SEG 3 


L- 


13589000 


T 


000350563«3 




13590000 


T 


00035056383 


_^ 


13591000 


T 


00035056353 


C_ 


13592000 


T 


00038056353 




13593000 


T 


00038056353 


,_, 


13594000 


T 


OOO35056752 


f 


13595000 


T 


00035056782 





13596000 


T 


00038056881 


("~ * 


13597000 


T 


00035056881 




13598000 


T 


00038056881 




13599000 


T 


00038056881 


C 


13600000 


T 


0003805688 i 


13601000 


T 


O0O38056851 





13602000 


T 


0003505695 3 


c 


13603000 


T 


00038057080 


13604000 


T 


00038057080 




13605000 


T 


0003805708Q 


c 


13606000 


T 


00038057182 



( ) 



o 



o 
o 

o 
o 

-O 

p 

o 

jo 
: b 
o 
o 
o 
o 
o 
o 
o 

o 
o 
o 

o 



END rLSF 

IF FIRSTX=4095 
THEN 
- BEGIN 

adjust; 

F!RSTX«.l; 
END? 
flJUMP*-FALSE 

END? 

PROCEDURE JUMPcHKNXJ 
COMMENT JUMPCHKNX DFTpRMlNpS WHETHER ANY EXECUTABLE CODE HAS BEEN 
EMITTED AND IF SO WHETHFR IT WAS JUST PREVIOUS TO THE 
NON EXECUTABLE ABOUT TO BE EMITTED, IF BOTH THEN L IS BUMPED 
AND SAVED FOR A LATER BRANCH* 
IF NOT SPECTOG THEN 
BEGIN 

IF F!RSTX*4095 
THFN 

begin 

IF NOT AjUMP 
THEN 

savfl*bumpl; 
ajump«-true 
endjaojust 
fnd; 

PROCEDURE SEGMENTSTaRT(SAVECOdE)JVAUUE SAVECODE J BOOLEAN SAVECODE? 
BEG.tN 
STRrAM PROCEOURE PR I NT f SAVECODE , ADR » F I EL ) '> VALUE SAVECODE * ADR J 

BEGIN 

LABEL LI' 

DI :-ElELi DSJ = 8 Li t" »; 

SP»FIELJ DS;=9 wds; DlS=D?-3; 

SAVEC0DECDS*=38 LT T "START OF SAVE SEGMENT; BASE ADDRESS = »* 

JUMP OUT TO LI) J 
DS:=38 LIT " START Of REL SEGMENT; DISK ADDRESS = "J 
LI J 

St :=loc adr* ds*=5 dfc; 

END PRfNTj 
MOVE U » SAVECODE* CODEC 0))* 

IF SAVECODE AND INTOG AND NOT DFCKTOG THEN FLAG(57)> 
IF I.ISTER OR SegSTOG THEN 

BEGIN 

PRINT(SAVECODE»IF SAVECODE THEN CORADR ELSE D I SKADR* L I N[ *3 ) J 

if noheading then datlme* wrjteline; 
end; 
end segmentstartj 

procedure segmenT(siZe»fR); value size>fr; integer size*fr; 

BEGIN 

STRfAM PROCEDURE PRl NTf SIZE.F IEl.) I VALUE SIZE; 

BEGIN 

di *=fiel; ds; = 8 li r» "; 

SI 5=FIEL; S J = l 4 WDS; 

D i : =d I - 16 ; ns:^6 l 1 T » S i z E = "; 

s t : = loc size; ds* = 4 dec; ds* = 6 lit» words" 



START 



95 



START 









c 


13607000 


T 


000380572*0 




13608000 


T 


0003*0572*1 


_ 


13609000 


T 


000350573*2 


L. 


13610000 


T 


0003*0573*3 


.. ... 


13611000 


T 


0003*057410 


c 


13612000 


T 


0003*0574* 1 


13613000 


T 


0003*0575*3 




13614000 


T 


0003*0575*3 


c 


13615000 


T 


0003*0575*3 


13616000 


T 


0003*0578*0 


- 


13617000 


T 


0003*0578*0 


c 


13618000 


T 


0003*0578*0 


13619000 


T 


0003*0578*0 


- 


136J?0000 


T 


0003*0578*0 


^ 


13621000 


T 


0003*0578*0 


(^ 


13622000 


T 


0003*0578* 1 




13623000 


T 


0003*0579*2 


c 


13624000 


T 


0003*0579*2 


13625000 


T 


0003*0579*3 




13626000 


T 


0003*0580*0 


^__ 


13627000 


T 


0003*0580*0 


c 


13628000 


T 


0003*0580*1 




13629000 


T 


0003*0583*2 


/***"*' 


13630000 


T 


0003*0583*2 


c 


13631000 


T 


0003*0583*3 




13632000 


T 


0003*058650 




13632100 


T 


0003*0586*0 


13633000 


T 


0003*0586*0 




OF SEGMENT 


********** 95 


^— V, 


13634000 


T 


0095*0000*0 


c 


13635000 


T 


0095*0000*0 . 




13636000 


T 


0095*0000*0 


c 


13637000 


T 


0095*0001*3 


13638000 


T 


0095*0002*0 




13639000 


T 


0095*0008*0 


.-—"■l 


13640000 


T 


0095*0009*2 


L- 


13641000 


T 


0095*0014*0 




13642000 


T 


0095*0014*0 


/•—. 


13643000 


T 


0095*0014*1 


L. 


13651000 


T 


0095*0014*1 


. 


13651100 


T 


0095*0019*2 


/-> 


13652000 


T 


0095*0022*1 


L> 


13652500 


T 


0095*0024*0 


_ - 


13653000 


T 


0095*0024* 1 


c 


13653500 


T 


0095*0027*3 


13654000 


T 


0095*0039*2 




13655000 


T 


0095*0039*2 




S 40 LONf 


i * 


NEXT SEG 3 


c 


13657000 


T 


0003*0586*0 




13660000 


T 


0003*0586*0 


c 


13661000 


T 


0003*0586*0 


OF SEGMENT 


********** 96 




13663000 


T 


0096*0000*0 


o 


13665000 


T 


0096*0000*0 


13667000 


T 


0096*0001*3 




13668000 


T 


0096*0002*0 





13670000 


T 


0096*0003*2 



u 

O 
O 

o 

p 

o 
o 
o 
o 
o 
o 
o 



o 
o 
o 

O 



SI 



VALUE C#A.F»WJ 
=9 WDSj 

=DI+7S DSJsCHR; 
= CHRS s r S = L C CS 

ssi + mosisN chr; 



writeline; 
if level>i then 



end print; 
strfam procedure: doj tcc,a.i,s.f,w)j 
bfgin local n; 

D I x = S S OS* =8 LiT" »; Sj5=S; dS 
D I :=DI -8; SM=LOC WJ D 5 * = 4 DEC 

St;=i; St i a ST+io;Di »=loc n; di 
0IS=S; SI s =LOC F; SitsSI+7; OS 
DS:=3 DEC; DS! = 4 DEC;Sl 5*1; 
END DO IT ; 
IF LISTER OR SEGSTOG THEN 
BEGIN 

print(size»linc*j){ 

if nohfadtnr then datime; 

fno; 

IF STUFFTOG ThfN IF FR>0 THfN 
BFGIN 

klassf:=takecproinfo),class; 

IF FR > lO?/ t THEN FR*FR-l024; 

doitcklassf'.fr* i nfo [pro i nfo « l i nkr, pro i nfo , l i nkc ] , 
twxaioi.saf.size); 

WRlTEfSTUFF»lO,TWXA[*])» 

eno; 

IF SIZF>SEfiSlZFMAX THEN S F GS I ZEMAX : =5 I Z F ; 

end segments 
stream procedure movecodecedoctedoo; 

BEGIN LOCAL Ti,T2,T3J 

sufdoc;Ti*si; 
si*tedoc;T2*sij 

Sl*|,OC EDOC; 
Sl*SI+3? 
D I *- L. o c T3; 

di*di+5; 

SKIP 3 DBS 
15CIF SB THEN DS* 1 S£T fLSf DS*1 RESETSSKIP 1 SB); 

si* loc edoc; 

01* LOC T2I 

DS* 5 chr; 

3(if sb then ds*i set els f ns*i resetsskip t sb); 

DI*T3S 
Sl*LOC T2i 

ds#.wdsj 

DI*L.0C T3S 
DI*nJ+55 
SKIP 3 DBS 
Sl*LOc TFDOc: 
Sl*SI+3J 

i5(if sb Then ds*i set else ds* i resetsskip i sb); 

Si* LOC TFDOCJ 
LOC Til 

5 chr; 

sb then ds«.j 



96 IS 



Dy«. 
DS* 
3(IF 
DI*T3I 
Sl*|,OC 
DS*WDS 

end; 
procedure 



SET ELSE DS*l RESETSSKIP 1 SB) 



Tl 



FNTERCTYPE5I 



13673000 


T 


009650004*1 


13673100 


T 


0096*000552 


13673150 


T 


0096*0005*2 


13673200 


T 


009650005*2 


13673250 


T 


0096*000752 


13673300 


T 


009650007*3 


13673350 


T 


00965000952 


13673400 


T 


0096500105Q 


13673450 


T 


00965001153 


13674000 


T 


009650012*0 


13674500 


T 


00965001352 


13675000 


T 


0096500l3« 3 


13676000 


T 


0096S001552 


13677000 


T 


0096J00265 \ 


13677100 


T 


00965002651 


13677150 


T 


00965002953 


13677200 


T 


009650030S0 


13677250 


T 


0096*0032*0 


13677300 


T 


0096*003451 


13677400 


T 


00965003753 


13677500 


T 


0096*003952 


13677600 


T 


0096*004352 


13678000 


T 


009650043*2 


13681000 


T 


0096*004552 


47 LONG. 


NEXT SEG 3 


13683000 


T 


000350586S0 


13604000 


T 


0003*058650 


13685000 


T 


0003*0586*0 


13686000 


T 


0003*05865 i 


13687000 


T 


0003*0587*2 


13688000 


T 


0003*058752 


13689000 


T 


0003*0587*3 


13690000 


T 


0003*0587*3 


13691000 


T 


0003*058850 


13692000 


T 


0003*058850 


13693000 


T 


000350590*0 


13694000 


T 


00035059051 


13695000 


T 


0003S059051 


13696000 


T 


00035059152 


13697000 


T 


000350593*2 


13698000 


T 


0003*0593*2 


13699000 


T 


000350593*3 


13700000 


T 


0003*0593* 3 


13701000 


T 


0003*059450 


13702000 


T 


00035059450 


13703000 


T 


0003*059451 


13704000 


T 


000350594* 1 


13705000 


T 


00035059552 


13706000 


T 


000350597*2 


13707000 


T 


0003*0597*2 


13708000 


T 


0003*0597*3 


13709000 


T 


0003*0597*3 


13710000 


T 


0003*0599*3 


1371 1000 


T 


0003*0600*0 


13712000 


T 


00035060050 


13713000 


T 


0003506005 i 


13714000 


T 


0003506005 1 



c 

c 
c 
c 
c 



c 
c 
c 
c 
c 
c 
o 
o 
o 
o 
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value: type? 
Rfal type; 
begin 

G*nTAir.j«-j-n? 

IF NOT SPECTOG 
THEN 
BEGIN 

IF NOT P2 

Then if p?<-cg-ownv) 

then g*gtai[J*J-i]; 

IF NOT P3 

then if P3«-cg=savev) 

then g«-gtaicj«-J-u 

END? 
IF G*0 THEN FLAGC25) fLSE ENTRY(TYPf) 

end; . 

procedure htteoapcgotstor age »reu ad, stopper #prtad); 
value gotstorage » Rel ad » stopper, prt ad? 

BOOLEAN GOTSTORAGE; 

real relad, stopper, prtad; 

BEGIN 

IF FUNCTOG 
THEN 

BEGIN 

E M I T V C 5 1 3 3 ; 

emito(rtn) 
fnd 

ELSE 

EMtTOfXjT)} 

constantcuean; 
purgecstopperj; 

MOvEf 1»CODf(0),Z); PROGDfScBLDRC PR TAD, BOOLEAN C Z ) , ( L + 3 )D I V 4,PDfS)J 
ENn HTTEOAPI 

procedure tnlinej 

BEGIN 

tntegfR sn,ln,p,ls»jj boolean mkst; 



bo 

INTfGER 
LABEL Lt» 
pn*i ; 

FL 
IF STEP! 

if Table 

.18 IF STEP 
AcCUM 

F? 
IF 

.. .Then 

ELSF 
AfXPJ 
LP? IF El, 
BFGIN 



OLEAN FLlPFLOP; 

PNJ 
L2»L3« 

IPFLOP*INLINETOg*TRUe»P*OIMKST*FALSE«LS*L>EMITO(NOP); 

j'leftparen then flagc59)j 

ci + 1)=col,on then begin si-epit;go TO L2 end ; 

I>IDMAX THEN BEGIN FLAGU65JJ GO TO L2 END i 

r0^0&Pn6:37:in&L0cLIDr2J415 73aScRAM[3 l i{35:i3]; 

TF FLlPFLOP THEN BfGiN FLl PFLOP*fALSE J LN«-SN«-LASTl NFO END! 

STEPI=COMMA OR ELcLASSsfOLON OR ELCLASS=RTPAREN 
BFGIN I4-I-2JSTEPIT END 
TF ELCLASS^ASSIGNOP THEN FLAGC60) ELSE STEPfT; 



END F 
IF EL 



CLASSsCOLON then 
IF MKST THEN FLAGC99); MKST«*TRUeJ EMITO(MKS)? 

if tableci+iJ^rtpaRen then go to li> stepit 

jpn*2; 
LSE p*p+i; 
c.lass=comma then go to li; 



P*-P + 28 
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13734000 


T 


00038061782 


C 


13735000 


T 


00038061782 


13736000 


T 


00038061782 




13737000 


T 


00038061782 


C 


13738000 


T 


00038061782 


13739000 


T 


00038061783 




13740000 


T 


000380618$ 1 


C 
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13755000 
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00975001880 
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0O975O03851 




13761200 
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if flclass#rtparen then flagc6d; 
if not mkst then 

BEGIN J*LU.*LSIEMiTO(MkS);l*J end; 
-IF STEP) * SFMlCOLON ThEN FLAGC62)J 
EMIT0C584)? 



L3:ELRATri ]*TaKE( SN) ; SCAT TERELBAT J ADDRSF*P-ADDRSF* 

PUTfFLBATr lUADDRSFCl6»37Jll]RSTACKHFADrLlNKF3t33l33Jl5].SN)J 
STACKHFADrLINKF3*SN; SN*SN+INCRFI 

if addrsf*pn then GO TO L3 i 

inlinetog* false; 

pn*nextinf0» 

strfamtog«-true;streamwords; if stepi^bfginv then streamstmt 

else begin step i t ; compoundta i l end) 

streamt0g*false*purgecpn)»streamw0rdsipurge(ln)*emitlc16)> 

END INLlNFJ 

COMMENT THIS SfCTiON CONTAINS THE BLOCK ROUTINE I 
PROCEDURE RLOcKfSOP)? 
VALUE SOPJ 
BOOLEAN SOP? 
COMMENT SOP IS TRUE IF THE BLOCK WAS CALLED BY ITSELF 
PROCEDURE DECLARATION-OTHERWISE IT WAS CALLED 
THF BLOCK ROUTINE IS RESPONSIBLE FOR HANDLING 
STRUCTURE OF AN ALGOL PROGRAM-SEGMENT I NG EACH 
ALL DECLARATIONS.DOING nECFSSARY BOOKKEEPING 



THROUGH THE 
BY STATEMENT. 
THE BLOCK 

BLOCK. HANDLING 
REGARDING EACH 



BLOCK* AND SUPPLYING THE SCANNER WITH ALL 

ABOUT DECLARED IDENTIFIERS, 

IT ALSO WRITES EACH SEGMENT ONTO THE PCT; 



NECESSARY INFORMATION 



BEGIN 
LABEL 



OWNFRR.SaVERR.BOOLEANDfCREALDEC'ALPHADECINTEGERDEC, 



LABfLDFC.DUMPDEC.SUBDEC.OuTDECiNDECMONITORDEC. 

switchdec.procfduredecarraydecnamedecfiledec. 

GoTSCHK.FjELDDECAUXmEMERR* 

strfamerr»definedec,cal'lstatement»hf,start; 
switch declsw * ohnerr.saverr.booleandecrealdecmntegerdec.alphadec 

labfldec.dumpdfc.subdec.outdec.indec.monitordec. 

. . . . switchdec.procedurfdecarraydfc.namedec»filedec. 

strfamerr.definedec.auxmemerr.fielddec; 

DEFINE NLOCSajO#,LOCBEGlNsPRT!#, 
LBP=r36J J2]#, 
SPACEITDOWN s WR J TEC L I NF [ PAGE 3 >* * 



X112- 



X112- 



*902- 



BOOLEAN GOTSTORAGE; 
INTEGER P!NFO0,BLKAO; 

COMMENT LOCAL TO BLOCK TO SAVE WHERE A PROCEDURE IS EMTERED 
IN INFOJ 

real maxstacko»lastinfot,relad»lo»tsublevel»stackctro; 
integer sgnoo»loloisavelo»prtlo,njnfoo; 
integf'r nciio; 
integer proad i 
intfgfR firstxo; 
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BOOLEAN FUNCTOGO^AJUMPO; 

BFGINCTR*BFGINCTR+1 
IF SOP 



Then begin blkad*proado* 

IF LASTeNTRy * o 

then begin gtubumpl* 

constantclean; 
emitb(bfw»gt1*l) 

END 
BLKAD:=GETSPACECTRUF»-6)J % SEG. DESCR, 



END 
ELSE BEGIN 



end; 



FIRSTX(UFIRSTX; 
FIRSTX*0J 

level*!, evel + 1j 

lold*lifunctogo*functogjajumpo«.ajump?prtio*prtiisgnoo*sgnoi 
savelo*saveuia jump* false j l*0; n i nf00*nfxti nfo ; 
nciio-ncti ; 

NCII*0? 
STACKcTRO*STAcKCTR! 



ELBATi:t3.CLASS«.SEM!C0L0N; 
START; t f TABLECD^SEMICOLON 

Then 

BEGIN 

FLAGCO); 
1*1-1 

end; 

r,TAH0]*J*0{ 
IF SPECTOG 
THEN 
BEGIN 

IF 8UP=PJ 
THEN 
BEGIN 

begin label getlp; 

if streamtog then f*o else 
f*fzeRo; 
bup*lastinfo; 

DO 
BEGIN 

. . if not streamtog then 

bup*lastinfo; 

GETLP; G*TAKE(BUP)i 

if k*g.address?*pj 
Then 

BEGIN 

if bup * bup:=bup- take(bup + d.purpt then 

go to getlp 

end; 



START 
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c 
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END 
UNTIL 
END) 



g, addRess*f*f+i; 

PUTfG.BUP)? G.INCR.-GT1? 
PUTfG»MARK+PJ) 

;bup«-bup-takecbup+i ),purpt 

PJ«-PJ-1*0 



99 IS 



TO 



specTog*-false? 

HF 



GO 

END 

END? 

STACKCT «• 0} 

WHILE STEPI=DECLARAT0RS 
DO 

BEGIN 

fiTAirJ*J+ll*ELBATCI]. ADDRESS; 

stopdefine«-errortog«-true; 

end; 
j =0 thfn go to c allst atempnt? 

p2«-p3*falsej 

go to declswcgtaie j3 3 j 

onneRR*flag(20)jj*j+i;go TO RfALDECJ 
savfRR»flagc?i)jj*j+ugo to Rfaldec; 
auxmemerr!flag(618); jjsj + ugo to realdec5 
streamerR? if elclass = leftparen then 

BEGIN 

i «• i - i } 

go to caustatement; 
end; 



IF 



FLAG(?2)J 

J ♦ J + 1J 

GO TO PROCEDURfDfC? 

realdecsP3«-true;fntfRcRealid);go to start; 
alpha0fr'p3*trufjentercalfald);g0 to start? 
bo0leannec:p3«-truejfnter(bo0ld);g0 to start! 

INTfGERdFC!P3«-TrUeJENTER(INTID)JG0 TO START; 
MONIITORDECS IF SpECTQG 

THEN BEGIN COMMENT ERROR 463 MEANS THAT A MONITOR 
DECLARATION APPEARS IN THE SPECIFICATION 
PART OF A procedure; 
FUGU63); 

end; 

DO UNTIL FALSE? 

nUMPDFC'IF SPECTOG 

THEN BEGIN COMMENT FRROR 464 MEANS A DUMP DECLARATION 
APPEARS IN THE SPECIFICATION PART OF A 

procedure; 

FlAG(464)> 
END} 

do until false; 
arraydetj arraei go to start; 

FlLEDECt INDFC' 0UTDEC8 

gOtschKjgotstoragf*- not spfctog or gotstorage;go to start; 

NAMFDEC: TF Tl*r,TAl r J*-J-l ]*ARRAyV TmEN j«-j+i; 
TYPEV..NAMEIDJ 
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IF Ti*GTAlCJ*J-l]=0 then j*j+i 

ELSE 
IF T1=0WNV 
THEN 

BEGIN 

P8*TRUEI IF SPECTOG THEN 
FLAGC013) 
END 
ELSE 



entfRctyPevh go to start; 

SURDEC? 

begtN real typfv.t; 



typev«-naMeid+ti*Realv; 



IF GTA1 [J«-J-1]=REAL V THEm TYpEV«-REALSUB I P ELSE TYpEV«-SUB I Q; 
STOPGSP*TRUE» 

JUMpcHKNXiENTRYCTYPeV); IF ELCLasSt'SEMICOLON THFN FLAGC57); 

stopgsp<-faLse? 
STrPiT; 

t*NfxtiNfo; 

PUTNBUMPCDJ STMT; eMiTO(LfU); If TYPEVbREALSUBID then 

IF GETcu-?>*533 THEN FL AGf 55 ) ' PUT( TAKE ( T ) &LC ?H ' 36 J 1 2 ] » T ) J 

constantclean; 

END; 

GO to start; 



start 



100 IS 



larf^ofrmf spertor, and functog thfn placid); 
stopeNtRy*stoprsp*tRue> 

T *- T — 1 ' 

DO 

BEGIN 

STOPDEFInE*TrUE; 
STEpITj 

entry(Labelid); 
- .. . putnrumpco) 

END 

until fL-cLass^comma; 

STOPfNtRY*STOPgSP*FALSfJ 

fi o to start; 

SWiTChDfC* 
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BEGIN 

LABFL START; 

INTEGER GT1»GT2»GT4# GT«i? 

boolean tbi} 

stopfntry<-not spectogistopgsp*tRue; 
scattfRfL-bat; r,Ti*o { tr1*false; 
fntRycswitchid); 

GT2*NevTtNfO; PUTNbUMP(O); 
DO 

begin 

if stepij'i.ahelid or elbal'n 3 . l^level then flag(63); 

pUTNBUMPCELBAT[I])>GTl*GTl+l 
EnD 

comment 

UNTIi, STEPI/COMMA; 

p u t c g t 1 » g t 2 ) ; 

. stopfntry «■ stoprsp * false? 
fno switchdfo 

rO to start; 

DEFINfOFC* 

begin label start; 
real j»k; 

BOOLEAN STREAM PROCEDURE PARM ( S. D » K» J) ', VaLUE K»J| 
BEGIN 5l*SjSl*Sl+2j I *D i D I *D I +2 j 
IF K SC*DC THEN TaLLY«-1j 
DI*L0c Jf n I *"D I +7? 
IF Sc*OC THEN TaLLY^-1? 
PaRM»TAULy» 

end; 
stopentry*stopgsp*truei ui-i ; 

DEFINING := BOoLEANCrEaLCDeFINI NG) & 1U7547S13); 
BO 
BFGIN 

STOPDEEINE*TRUE; 
STEP IT; M0VE<9»ACCUMC1]#6Ta1)I 
K«-C0UNT + lj J*GTAl[OJ; ENTRY ( DEF I NED I D ) 5 
GTAlCOl*J+ M tOOOOO"; J*05 

IF ELCLASS=LEFTPAREN OR ELcLaSSpLFTBRKET THEN 
BFGIN 

no bfgin stopdefINe*truf; 

stfPjT; 

if (j*j+1)>9 or parm(accumu3»gta1,k»j) or 

k>62 thfn rfgjn err(l4l); go to start end? 

stopdefine«.true; 
End until stepi#commai 
if elclass^rtparen and elclass^rtbrket then errc141)} 

STOPOEFlNE*-TRUEj 
STFPITJ 

PUTCTAKECLASTlNF0)SJtl6:37:il]»LASTINF0); 
F N D ; 
IF Fl-cL.ASSjtHFl.OP 
THFN 

BEGIN 
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FLAG (30); 

I *- 1 - 1 ; 

end; 

..._.. .MACR0lD*TRUEl 

dffinegencf alse'j); 
macroidtal.se; 

END 

until stfPi'T.omma; 

OFFlNlNG != BOOLfaNCRFaL(DfFIN]Ng) 

start; stopfntry«-stopgsp«-false; end; r,o to 



& 0[47:47 

start; 



11) 



FJElDDEC! 
BEGIN 

REAL SAVFINFOc 



SB' NB, 



BOOLFAN FOUNOUr; % jHUF IF LEFT-RRaCKet WAS USFD IN FIELD SPEC 
L-ARfL fXIT' savfiti 
stopfntRy '= stopgsp s= truf; 
I '= I - 1* 

DO 

BFGIK' 

stopdefine j= true; 

stepiT; 

entrycfieldid); 

SAVEINFo != I.ASTINFO; 

IF ELCLASS s RELOP AND ACCUMtl3 = "1=0000" THEN 
BEGIN 

IF STEPI = LFTBRKFT THEN X REMEMBER THIS 
BEGIN 

FOUNDLB s= TRUE; 
stfpit; 

END 
FLSp 

founolR '= false; 

IF ELCLASS = FIELDID THEN 
BEGIN 

sb := elbatc i 3 , sb i tf; 

nb := elbatci3.mbitf; 

go to saveit; 
end; 

IF fL-CLaSS = LjtNO THEN 
IF STFPl s COLON THEN 
IF STEP I = LITNO THEN 

IF (SB s= ELBAT[ 1-2], ADDRESS) x 

(MB 5= ELBATCI J.ADDRESS) * AND 
SB f NB < 48 THEN 
BEGIN 

save IT; 

PUT(TAKECSAVEINFO) & SB SBITF & NB NBlTF> 

SAVEINFO); 
STEPIT; 

IF FOUNDLB THEN % BETTER HAVE RIGHT BRACKET, 
IF ELCLASS = RT8RKET THEN 
BEGIN 
STEPIT; 

go to exit; 
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fno 

ELSE % MISSjNg RIGHT BRACKET, 

ELSE 

GO to exit; 

end; 
end; 

FLAGC1R); 

do stepit until, elclass = comma or elclass = semicolon; 
exit: 
ENO 
UNTfL 

elclass * comma; 
stopentry »; stopgSp ?= false; 
end; 



XI 12- 

% 1 12- 
XI 12- 

XI 12- 
Xl|2- 
X112- 
2112* 
XI 12- 

XI I 2« 
XI 12- 
X112- 

XI 12- 
X112- 
XI 12" 

X112- 



14 
14 
14 

14 
14 
14 
14 
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14 
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14 



GO To START; 
PROCEDUrEDEC? 
BEGIN 

UbfL. start, staRTI; 

LaBfL START2I 
BOOLEAN FWDTOg? COMMENT TwTS TOrGLE IS THE FORWARD DEC INDICATOR; 
IF NOT SPECTOG THEN fUNCTOG*FALSE ? 

fwdtog-fai.se ; 

maxstacko*- maxstack; 
if g«.gta1[j*j"*1] = streamv 

THEM 

BEGIN STREAMTOG-TRUE; 

IF G*GTaUJ-J-1]=0 THEN TYPeV«-STRPROCID 

ELSE 
BFGlN 

IF TYPfV*PR0cID +g>intstrprocid or 

typev <boostrprocld 
then flagcooo; 
if not spectog then 
functog*true; 
chksob 
Enid end 

ELSE 
IF G=SAVEV OR G=0 THEN TYPEV^PROCID 

F^SF 
IF TYPFV*RFAL..STRPROr.ID + G<BOOPROCID OR TYPEV> I NTPROc I D 
THEN FL-AGC005) 
FLS F BFfilN FUNcTOr,*TRUr;G*fiTAltJ*J-l]l 
E^D? 
IF NOT STRfAMTOG T H EN SErMeNTST ART C GsSaVeV ) ; 
SAF «• GsSAVEVj 



mode*modf+i; 

LO*PrO|NFO» 

scattfRfI.rat; 
cOMMfNt chfck to sff if dfcURfd forward pRfviously 

TF LfVFLF=LEVEL 

thfn 

BEGIN 
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01.04! 
01048 



0036!0 
003680 
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00368 1 
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0037:2 
0040: 1 
004182 
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004P2 
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COMM 



else: 
pu 



IF G«.TAKE(LlNKF + l) 

THEM FLAG C 006); 
FWDT0C,»-TRUL> 
XMARKCDEcLREF); % PR 

x x R 
pr0ad*apdrsf; 
proinfo*elratci Jim 

IPUTt-GpLlNKf 

FLsf 

RFRTN STOPeNtRY*TRUf 
STOPr,SP*LEVEL>l AN 
ENTRYfTYPEVJJ M 

ST0PGSp«-FAl,SEI 
PROlNFo*-TAKE(LASTl 
p?*STOPENTRY*FAUSE 
END I 

PJ<-0; LEVf 

IF streamtog then 

FF FUnLASS=SFM!C0L0N 

if elclass^leftpaReN T 

enT: the following 8 s 

formal parameter e 

rr!<-nextinf0! 
lastinfoulastinfoj 

putnbumpco) 
ptog«-true? 
entry(secret); 
if fwdtog thfn 

BEGIN 

IF gtj.;=TakecmaRK) 

% NUMBER OF PARA 

END 



>0 



ocedljre declared forward. mark last 
tf entry as a declaration, 

aRk«-linkf + incrfjstepit 
+ 1)1 



; p2*tRUf? 
d streamtog; 

ARk*NEXT|NFO»PUTnBUMP(0)« 

NFqH LASTInF0[35!35« 1 3 J I PROAD^ADDRSF? 



l*level+i; 
stRfaMwoRds; 

THfN GO TO START1J 
HEN FLAGf007)l 

tatements fool The scanner and block, putting 
NTrIeS Im the zero row of InFOJ 



lastinfo«-nextinfo*i; 



1*1+1? 



,U0:8] 

meters, 



* PJ THEN FLAGC48); % WRONG 
WE D0N"T WANT TO CLOBBER INFO, 



COMM 
I 



T(Pj*MARK)l 
P-PJ; 

if flclass^rtparen 

Then flagcoob); 
if stepi/semicolon 

THEN rLAG(009)l 

ent mark parameters value if thfpe is a value part; 
f stepi«vaLuev 
then 

BEGIN 

no 

if stept*secRet 
Then flagcOio 

El.SE 

BEGIN 

IF G*ELBATCl],ADDRESSsO or g>pj 
THEN 

FLAG(OlO); 

G«-TAKECELBAT[ I ]) J 

PUTCG&ltlOi«7n3»ELBATtIl) 

- - END 

UNTIL 

stepi*comma? 
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IF ELCLASS^SfMlcOLON 
THEN FLAGCOil) 
FLSE STEPIT 
ENDM*T-1J 
IF STRFAMTOg 
THEN 
BEGIN 

Bl)P*PJ* SPFCTOG«-TRUE*GO TO START1 
END 
FL5E 
BEGIN 

spectog*truej 
bup*o; 

if flclass/oeclaRators 
then flagc0i2) 
fnd? 

STaRTiptOG*FALSe1LASTinfO*lASTINFOTjneXTinFO*!F FWQTOG THEN RRi ELSE 

MARK+PJ+i; 
START! »pINFOO«-NEXT!NFO? 
START2J END? 

IF SPFCTOG OR streamtog 

thfN 

GO TO STARTi 
COMMENT if SPECTOG jS ON T H EN T H E BLOCK WjLL PROCESS ThE SPECIFICATION 
PART SIMILARY To DECLARATIONS WITH A FEW NECESSARY VARIATIONS? 
HF: 

BEGIm 

LABEL START'STOPJ 

DFFINE TFSTLFV = LEVEL>2 *l 
IF STREAMTOq 
THEN BEGIN 
IF TfSTLFV THFN JUMPCHKNX FLSe SfgMENTSTaRT(TRUe)?PJ«-PJ 

PT0G*FALSEJ 
PUT(TAKECG!T(PROINFO))RLIZ8*36«12]*GIT(PROINFO)); 
IF TESTLEV THEN BEGIN EMIT0(584)J END; 

IF STEPI-BEGINV 
THEN 

BEGIN 

WHILE STfPI s DEcLaRATORS OR ELCLASS-LOCALV 
DO 
BEGIN 

IF elbati i].addRfss=labeLv 
Then 

■ ■ - BEGIN 

stopdef!ne«.stopgsp«.stopentry*true) 
do begin st pdefine«.true;sTepit;entrycstlabid);putnbUmpco) end unti 
elclass^commAjstopgsp*stopentry*false 

end 

else 

BFGIn 

1*1 + 1 J 

ENTRYCLOcLlD) 

f nd 

end; 
if functog then 
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putccz«-take:cproinfo))&loclid[?mi;7] a 

CPJ + ? + REALCTESrLEV))Ci6:37SU3»PR0lNF0); 
COMPoUNQTaIL 

END 

ELSF 
BEGIN 
IF FUNCTOG THEN 

P(JT(( Z«-TAt<E(PR0INF0))8 UOCL I C 2 I 4 1 1 7 3 R 

(Pj+2 + R F ALtTESTLEV))Cl6j37jll]»PR0lNF0)5 

stRfa^stmj; 

FNDJ 
COMMENT THE FOLLOWING BLOCK CONSTITUTES THE STREAM PROCEDURE PURGE? 
BEGIN 
REAL NLOC»MLAB{ 

DFFINE SES=18#»SE[) c 6!MTRW-5#; 
DFFINE L0c=C36: l2 3#.LASTGTs£2a; 12]#; 
J* LASTlNpO} 

NLOc*NLaB*0* 

no 

BEGIN 

IF(GTi«.TAkECJ))«ClASS = lOCLtD then 
BEGIN 

IF BOOLEANCGTl, FORMAL) THEN 
BEGIN 

IF GTKO ThF.N 
pUTCTAhE(GT2*MARK+P-GTi, ADDRESS+1J&FIUEIDC2I4U7] 

»GT2); 
END 
ELSE NLOC*NLOC+l{ 
END 
ELSF 

BFGIN 

IF CTltADDRESSjtO THEN NLAB*NLAB+1* 
TF(GT3*TAKE(B!Tf J))).LASTGT/0 AND GT3.LOC =0 THEN 
BFGIN 

M0VE(9»InFoCO»J]»ACCUmcO])J 
0«-ACCUMCl3; 
FLAG(267); 

frrortog*true; 
fNd; 
end; 
xRffdumpcjj; % dump xRff info *no- 

G*fGT?*TAKF.CJ+l)).PURPTI 

IF GTi,C?58] * STLABIDX2+1 THEN 

STACKHEAD[(0&GT?[12»1?*36J)M0D 125 ] «-T AKEC J ) ,L INK J 
END UNTIL J*J-G<lj 

IF TESTLEV THEN BEGIN EMITCC1»0)J EMITO(BFW) END 
ELSE EMIT(O); 
PUT CTAKF(MARK)RNL0CCH42S6]&Lri6i36j 123&P[40:40:8]» MARK)? 
IF FUNr.TOG THEN 

putcz. proinfo); 

streaMwords; 
stRfaMtog*fal,se; 
if not test-lev the:N begin progoescbIdR(PROad«tRue»cU3)div 4»chaR); 

5fgmentc(u + 3)dlv 4, pro i nfo , address ) j 
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if lister 
end; 



AMD 



end; 

FORMAToG 



KIGHTCDJ I 

then spaceitdown; 



LasTINFO*LaSTINFOT;NEXtINFO*MarK+P+1; 

fNd 

fL-SF 

BFGlN. 

if stepi=f0rwardv 
then 

BEGIN 
XREF 



106 IS 



PUTC 

STEP 
END 
ELSE 
RFGIN 
PROadO+PR 

tsiibl 

IF MOnF=l 
IF E 
BEGIN) 

C 
N 



ITCprOINFO»0»FoRWARDrEF); Z WE NEED THIS SO WE CAN FIND 

% THE FORWARD DECU DURING XREF 
-TAKECG«-PR0INF0»LINK + 1).G)} 

PURGECPINFOO); 
IT 



oad; 

fvel<-sublf.vfLjsubI-evfL*-level ;stackctro«-stackctRj 
then frstuevel.*l.fveujstackctr*513 + rfalcfunct0g)j 
lclass = beginv then 

ALLlNFo*(CALL x *CAULX+l)+n 
ESTCTR*STACKCTr| 
BLOCK(TRUE) 
PURGECPlNFOO); 
F NfsTOg thfN 
FGIN C,T1«-TAKf(PROiNfO),ADDRFSS; 

NESTPRTrGTi ]«.0&PR0INF0[35«35»13]&CALUINF0[22I35M3I' 
CALLCCALHNFo-t)*(TAKECGlT(PROlNFO))+NESTCTR-5ll )& 
CALLX[2?835:t3]J 



nd; 
«-oj 

GO 

B 



TO STOP END? 
EG IN 



FLAGC05?)? 

STMTJ 



RELAD«-L I 

htte0apcfalse»reuad,pinf00»pr0ad)j 
end; 



STOP: 

SUBLEVEb 
STACKCTR 
IF LISTE 

fnd; 
end; 

PROtNFO*L 

if jumpct 
then 

LE 

MODE 

M 

startjend; 



♦TSUBtEVELl 
*STACKCTRO| 

R AND FORMATOG 



then spaceitdown; 
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R=LEVEL 

JUMPCTR^-LEVfL-I; 
VELH.EVEL-1J 
♦ MODf.-U 
AXSTACK*MAXSTACKOi 
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C) 



r,o to start; 
callstatement* fouled * l; 

JUmPCHKXMF SOP THEM BEGIN Z*STACKCTR-513JWhILE Z*Z-1>0 

do emitl(o) end; 
if spectog then begin 

fuagc12)'g0 to hf 

ENDJ 
BEGINCTR <• BEGlNcTR-i; 

IF ERRORTOG 

THEN COMPOUNOTAIL 
ELSE 
BFfilN 

stmt; 

if eulass*tablec i + d-declarators 
then 

BEGIN 

elbatr 13. class* semi colon* 
beginctr*beginctr+i } 
go to start 

END 
FLSE 

compoundtail 

ENDJ 
FUNCTOG*FUNCTOfiO; 
TF SOP THEM HTTEOAP( FALSf. F I RSTX, N I NfOO. BLK AD) 

ELSE BEGIN IF NESTOG ThEN SORTNESTj PURGEC NI NFOO ) ; END; 
SEfiMENTcCL+3)DlV 4.PR0AD0); 

if lf.vel>i then rightcl)* 
if i.evfl * level-1 = then const antclean; 

ajump*ajumpo; 

ElRSTX-FlRSTXO; 

SaVfL*saveLo; 
stackctr*stackctRo; 

end block; 
comment this section contains the variable routine and its sidekicks; 
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c 



c 



u 



f. ) 



w 



u 



^O 



iO 

fo 

D 

:: o 
o 
o 

I 
: o 

■ o 
o 
o 
o 
o 
o 
o 
o 



COMMENT 



THF 

op 



1. 

2. 
3. 
4. 
5. 
6. 
CODE 

1. 
2, 
3. 

A. 
5. 
6. 



FOLLOW 

simple 
v * 
v *. 
v.t 
v,[ 
v.t 

V 
EMIT 
VN» 



EXP 

VN» 
\l\lt 
ZER 
VV 



whfRe 



of course 
The paRam 
global fa 
The param 
who calle 
syntax ch 



in 

V 

E 

E 

S* 

s: 

s: 

ED 
EX 
»M 
DU 
EX 
OL 

\IH 
E 
M 
V 
V 
«• 
T 
1 
D 

. 

ET 

SH 

ET 

D 

EC 



G BLOCK HANDLES 

ARIArLfS! 

XP 



THF FOLLOWING CASES 



.WHERE 

.ALL V 
EXP .WHERE 
EXP .ALL V 

'ALL V, 

.ALL v , 

ABOVE CASES 



XP 
L] 
L] 
L] 

for the 

P.M*.XcH»*. 
**VL.+. 

p»coc»exp.t»m*»xch.-. 
p»t»m*»vl»«., 

•VV.T . 



V IS formal-call by 
except formal-name, 

V IS FORMAL-CALL by 
EXCEPT FORMAL-NAME, 



NAME. 
NAME, 



IS AS FOLLOWS: 



XP = 

* - 

L = 
V = 



PROCEDURE VARIABLE(Pt)? 
BEGIN 
REAL TALL. 



ERO 

UP. 

EXP 

ER 

ION 

ER 

IT. 

KS 

INT 



DFSC V 

ARlTH. OR BOOLEAN EXPRE SS I ON, AS REQUIRED. 

CALL ON MONITOR ROUTINE. IF REARED, 

LITC V 

OPDC V 

STORE INSTRUCTIONCISD. ISN.SND OR STD), 

BIT TRANSFER CODE CD I A >D I B . TRB ) . 
L = LI Tc 
COC.XCH = THE INSTRUCTIONS OUP.COC.AND XCH. 

WILL CAUSE RECURSION. IN GENERAL. AND THUS 
Pi AND THE LOCALS CAN NOT BE HANDLED IN A 

Pi IS USED TO TELL THE VARIABLE ROUTINE 

SOME OF THE CODE GENERATION AND SOME 
DEPFND UPON A PARTICULAR VALUE OF Pi . 

J 

EfiER Pi* 



COMMENT ELBAT WORD FOR VARIABLE* 



START OF 



T1 . COMMENT 
T2 . COMMENT 



1ST INTEGER OF 
2ND INTEGER OF 



PARTIAL 
PARTIAL 



WORD 
WORD 



SYNTAX* 
SYNTAX* 



15019000 
15020000 
15021000 
15022000 
15023000 
15024000 
15025000 
15026000 
15027000 
15028000 
15029000 
15030000 
15031000 
15032000 
15033000 
15034000 
15035000 
15036000 
15037000 
15038000 
15039000 
15040000 
15041000 
15042000 
15043000 
15044000 
15045000 
15046000 
15047000 
15048000 
15049000 
15050000 
15051000 
15052000 
15053000 
15054000 
15055000 
15056000 
15057000 
15058000 
15059000 
15060000 
15061000 
15062000 
15063000 
15064000 
15065000 
15066000 
15067000 
15068000 
15069000 
15070000 
15071000 
15072000 

sfgment 

15073000 
15074000 



T 0003:0628 

T 0003:0628 

T 000350628 

T 0003:0628 

T 0003*0628 

T 0003*0628 

T 0003:0628 

T 0003:0628 

T 000350628 

T 0003:0628 

T 000350628 

T 0003*0628 

T 0003S0628 

T 0003:0628 

T 0003:0628 

T 0003*0628 

T 0003S0628 

T 0003?0628 

T 0003*0628 

T 0003»0628 

T 0003*0628 

T 0003:0628 

T 0003*0628 

T 0003:0628 

T 0003*0628 

T 000350628 

T 0003*0628 

T 0003 ! 0628 

T 000350628 

T 000350628 

T 0003S0628 

T 0003:0628 

T 000380628 

T 0003*0628 

T 000350628 

T 000350628 

T 0003S0628 

T 0003*0628 

T 0003*0628 

T 000350628 

T 000350628 

T 000350628 

T 000350628 

T 0003*0628 

T 0003*0628 

T 000350628 

T 0003*0628 

T 0003S0628 

T 000350628 

T 0003*0628 

T 000350628 

T 000350628 

T 000350628 

T 000350628 

T 0107:0000 



o 
o 
o 
o 

o 
o 
c 



c 

c 

r 



C 



07 




T 01075000080 



L. 



( 'I 



v_ 



o 



c 



o 



c 

o 

o 
o 
o 
o 



u 

o 
o 

o 
o 
o 
o 



J ; COMMENT SUBSCRIPT COUNTER I 
REAL ReMfMBfRSEQNO; % REMEMBfRS SEQUENCF NUMBER OF VARlAB 

2 ON LEFT HAND SiDE OF ASSIGNMENT SO 
. % CAN XREF IT CORRECTLY, 

LABEL EXIT* NEXT* LASS? 
DEE I ME 

FORMALNAME = r 9 S 2 3 = 2#» 
LONGID = NAME[D#» 
PARTIALWORo = (Tl 5* 0)#» 

ERREXtT(NUM) =: BEGIN ERH(NUM); GO TO EXIT; END#J 
ROOLEAN 
SPcUHON, 

DUPlT.: 3! TRUf IE WF ARE DOiNG UPDATE TYPE ASSlfi 
'* MENT» I,E,» I : = * + 1.. 
TALL*fl. BATCH ; 

IF ELCLASS < TNTPROCID THEN 
BEGIN 

IF TALL. LINK /PRO I NFO , L I NK THEN 

BEGIN ERKC211); GO TO FXIT ENDJ 
COMMENT 211 V aR I ARLE'EUNqT I ON IDENTIFIER USED OUTSIDE OF ITS S 
TALL«-TALL &(ELCLASS + ft)[2UH7] & 51 3[ 1 6 : 37 5 1 U '> 

END 
ELSE CHECKERCTaLD* 
RFMEMBERSEONO != CARDNIIMBER; 

IF TALL, CLASS < INTID THEN 2 SIMPLE VAR OR FORMAL 
BEGIN 

IF STEPl * ASSIGNOP THEN 
IF PI = FL THEN 
BEGIN 

IE ELCLASS < AMPERSAND THEN 

EMlTNcTALL, ADDRESS) 
ELSE 

EMlTVcTALL. ADDRESS); 
GO TO EXIT; 
END 
ELSE 

IF ELCLASS = PERIOD THEN 2 PARTIAL WORD 
IF D0TSYNTAXCT1.T2) THEN % ERROR 

GO TO EXIT 
ELSE 

stepit; 

if elclass = assignop then 

BEGIN 

STACKCT 5 = i; 

IF PARTIALWORo THEN 2 MAKE SURE LEFT-MOST 
BEGIN 

IF PI * FS THEN 2 NOT LEFT-MOST 
ERReXIT(20HJ 

XREFlTCTALLt REMEMBER SEQNO» ASS I GNREF); 
END 
ELSE 

XMARK(ASSIGNREF); 
IF TaBLfCT+D = ASTRJSK THEN 2 MIGHT BE UP 
IF (DUP|Ti=f TABLEC 1+2) £ EQVOP AND TABLF 
< MULOP) OR TABLECI+2) = AMPERSAND) 
STEPIT; % STEP OVER ASTERISK 
IF TALLlFORMALNAME THEN 2 FORMAL PARAMETER 





15075000 


T 


0107:000010 




LE 2110- 


15075550 


C 


010780000*0 


^, 


we 2110- 


15075551 


C 


Ot07»0000»0 


C 


2110- 


15075552 


C 


01O750OO0JO. 




2114- 


15076000 


P 


01075000080 


c 


2114- 


15076100 


P 


0107:0000:0 


XI 14- 


150761 10 


C 


0107:0000:0 




2114- 


15076120 


c 


0107:0000:0 


c 


XI 14- 


15076130 


c 


010750000:0 


2 1 1 4 - 


15076140 


c 


0107:000050 




2114- 


15076200 


p 


010750000:0 


c 


2114- 


15076300 


c 


0107:0000:0 


N- 2114- 


15076400 


c 


0107:0000:0 




2114- 


15076500 


c 


0107:00000 


_ 




15077000 


T 


0107:0000:0 


L- 




15078000 


T 


0107J0001 J2 






15079000 


T 


0l07:000l?3 


/~> 




15080000 


T 


0107:0002:0 


c 




15081000 


T 


01078000410 




copf*; 


15082000 


T 


0107:0005:3 


-«. 




15083000 


T 


0107:0005:3 


c 




15084000 


T 


0107?000952 






15085000 


T 


01075000982 


/*"**> 


2110- 


15085100 


c 


0107:001010 


( 


NAME 


15085200 


c 


01071001112 




2114- 


15085400 


c 


0107:001210 


.-""*'. 


2114- 


15085600 


c 


0l07!00i2:i 


U 


Xt 11- 


15085800 


c 


0107:001383 




2114- 


15086000 


p 


0107:0015:2 


y~*\ 


2114- 


15086200 


c 


010780015:3 


c 


21 14-- 


15086400 


c 


0l07:00l6»0 




2114- 


15086600 


c 


01075001753 




2114- 


15086800 


c 


0107:0018:0 


u 


2114- 


15087000 


p 


010750019:3 




2114- 


15087200 


c 


010750020JO 


,.—■. 


2114- 


15087400 


c 


OlO7?0020:0 


L, 


2114- 


15087600 


c 


01075002050 




2114- 


J5087800 


c 


010750021 53 


c 


21.14- 


15088000 


p 


01075002352 


2114- 


15088200 


c 


01078002352 




2114- 


15088400 


c 


0107:002312 


,■***** 


2114- 


15088600 


c 


01075002480 


c 


21 14- 


15088800 


c 


010780025:2 




2114- 


15089000 


p 


01075002583 


.-•— V 


2114- 


15089200 


c 


01078002650 


c 


2114- 


15089400 


c 


01075002782 




2114- 


15089600 


c 


01075002753 


J" - "*! 


2114- 


15089800 


c 


01075002850 


c 


2114- 


15090600 


c 


01075003050 




2114- 


15090800 


c 


0107500325 1 


,>■""*% 


2114- 


15091000 


p 


01075003281 


c 


2114- 


15091200 


c 


O1075O032S1 . 




DATF 


15091400 


c 


01075003752 


c 


M+2) 


15091600 


c 


01075003952 


THEN 


15091800 


c 


0i07:0042;0 




2114- 


15092000 


p 


0107:0045:3 


f~\ 


2114- 


15092200 


c 


0107:0046! 1 


v_/ 



L. 



O 

o 
o 

p 

■p 

: ' : o 

o 
o 



o 



o 



o 
o 
o 
o 
o 
o 
o 

o 



COMMFNT 



EN 
ELSE 
IF T 

the 
vari 
1 

2 



BEGIN 

EMlTNfTALL. ADDRESS)* 

IF PARTIALWORD OR DUPIT THEN % NEED 
BEGIN 

emito(dup); 
emito(coc); 
end; 

END 
ELSE X ITS A SIMPLE VARIABLE 

IF PARTIALWORD OR DUPIT THEN 
EMITVCTALL, ADDRESS)* 
IF PARTIALWORD AND DUPIT THEN 
BEGIN 

FMITO(DUP)* 
PMITI(0»Ti»T2); 
END* 

stackct 8= realcpartialword or dupit)* 
stepiT; 

IF DUPIT THEN % ALREADY GOT FIRST PRJMAR 
SlMPARITH 

flse 

AEXP* 
EMITDC48-T2#Tl.T2); 
STACKCT Ss 0* 

GT1 := ?F TALL. CLASS = INTJD THEN 
IF Pi = FS THEN 

ISO 
ELSE 
ISn 

flse 

IF Pi = FS THEN 

STD 
ELSE 
SND* 
IF TaLL.FORMALNaME THEN 
BEGIN 

FMITOcXCH)* % TO GET DESCRIPTOR ON T 
IF TALL.ADDRESS > 1023 THEN % SET Va 

EMITOCPRTE)' 
CMITO(GTl)* 

END 
ELSE 

EM I TP A IRC TALL. ADDRESS, GTD* 
END 
FLSE % NOT ASSIGNMENT TO SIMPLE VARIABLE 
BEGIN 

IF Pi * FP THFN ?! EXPECTFD ASSIGNMENT 

ERREXfT(202)J 
EMlTifTAL,L»Ti,T2); % EMIT OP CALL AND PA 
END* X WORD CODE 

D OF SIMPLE VARIABLES 



ALLtCLASS/LABFLlD THEN 

FOLLOWING ULOCK HANDLES THESE CASES OF SUBSCRIPTED 

ABLESJ 

. V[*] .ROW DESIGNATOR FOR SINGLE-DIMENSION, 

. V[R,*J »ROW DESIGNATOR FOR MULT l -Q I MENS I ON. 



XI 


14- 


XI 


14* 


VALUEX1 


14- 


XI 


14- 


XI 


14- 


XI 


14- 


XI 


14- 


XI 


14- 


XI 


14- 


XI 


14- 


XI 


14- 


XI 


14- 


XI 


14- 


XI 


14" 


XI 


1 4- 


%l 


14- 


XI 


14- 


SI 


1 4» 


Y SSI 


14- 


XI 


14- 


XI 


14- 


XI 


14- 


XI 


1 4- 


XI 


1 4- 


XI 


14- 


XI 


14- 


XI 


14- 


XI 


14" 


XI 


14- 


XI 


14- 


XI 


1 4" 


XI 


14- 


XI 


14- 


XI 


1 4- 


XI 


14- 


XI 


14- 


OP XI 


14* 


RIANTX1 


14- 


XI 


14- 


XI 


14" 


XI 


14- 


XI 


14- 


SI 


1 4- 


XI 


14- 


XI 


14- 


XI 


14- 


XI 


1 4- 


XI 


1 4- 


RTJALX1 


14- 


XI 


14- 


XI 


14- 



15092400 
15092600 
15092800 
15093000 
15093200 
15093400 
15093600 
15094800 
15095000 
15095400 
15095600 
15095700 
15095800 
15095900 
15096000 
15096100 
15096400 
15096600 
15096800 
15097000 
15097200 
15097400 
15097600 
15097800 
15098000 
15098200 
150984*00 
15096600 
15098800 
15099000 
15099200 
15099400 
15099600 
15099800 
15100000 
15100200 
15100400 
15100600 
15100800 
15101000 
15101200 
15101400 
15101600 
15101800 
15102000 
15102200 
15102400 
15102600 
15103400 
15103600 
15103800 
15128000 
15128100 
151?9000 
15130000 
15131000 
15132000 






L07f0048i 





107 


500485 





107 


50049? 





107 


500515 





107 


500515 





107 


500525 





107 


'0053! 





107 


:0053s 


0] 


107 


500535 





107 


50053! 


01 


107 


100545 





107 


500565 





L07 


10057? 


0] 


107 


:0058? 


01 


107 


500595 


0' 


107 


500605 


0] 


07 


10060? 


0' 


107 


100625 


0] 


107 


100625 


05 


L 07 


500625 


Ol 


[07 


100638 


01 


107 


-00635 


01 


[07 


.00645 


0] 


[07 


10066? 


01 


07 


500675 


0) 


[07 


50068? 


0' 


107 


50069* 


0] 


[07 


(00705 


0] 


[07 


100715 


01 


[07 


10071? 


01 


[07 


I0071J 


01 


[07 


50072? 


01 


[07 


10073? 


01 


[07 


10073! 


01 


.07 


0074? 


01 


[07 


0075! 


01 


[07 


10076? 


01 


.07 


0077? 


01 


.07 


.0078? 


01 


[07 


10079? 


01 


07 


0080! 


03 


.07 


0080? 


03 


.07 


,0080? 


01 


07 


00825 


03 


.07 


0082? 


03 


07 


00825 


01 


07 


0082? 


0] 


07 


0083! 


03 


07 


00855 


0] 


07 


00665 


01 


07 


00865 


01 


07 


00865 


01 


07 


00865 


01 


07 


00885 


01 


07 


00885 


01 


07 


0088! 


01 


07 


0088? 



c 



c 



O 
C 
C 

c 
o 

o 



c 



o 
c 
o 
o 
o 
o 
o 
o 
o 



o 



(J 



o 



o 
o 

-O 

'o 
o 

o 

u 

o 
o 
o 
o 

o 



o 
o 

o 



3. V[R] 

4. V[R],[S!L] 

5. vrR] * 

6. V r" R J . C S J L ] *■ , 

R IS A K-ORDER SUbSC 

in The case of no ho 
is emitted for the a 

1. CASE #1 I 

dimension 

vl»lod 

execution 

2. This code 

each subs 

OF CODE' 
AEXp.L 
>LOD 

for a k-o 
produced, 

THE CODE 

PROCEDURE 

[* RFFFRS 

NON-ZERO 

EXPRFSSIO 

EXECUTION 



array elfment.name or value, 
partial word designator, value, 
assignment to array element, 
assignment to partial word, left-most, 

RlPT LIST, I.E. Rs Rl,R2,..,,RK, 
NITORING ON V, THE FOLLOWING CODF 
BQVE CASES? 
S A SPECIAL CASE OF #2, NAMELY , S I NfiLE 

. the code emitted i s t 

s'PLACES ARRAY DESCRlPTER IN REG A, 

IS BASIC TO THE SUBSCRIPTION PROCESS. 
CRIPT GENERATES THE FOLLOWING SEQUENCE 

*,IF FIRST SUBSCRIPT THEN VN ELSE CDC 



FOR THE 



REMAINI 

SEQU 

HOWE 

ONE 

K-l 

ELS 

SUB 

AT T 

AND 

EMIT 

3, ADD 

IF 

EXEC 

ADD 

IF 



4, 



5. 



6. 



ADD 
IF 

ADD 
IF 



exp,t,«-«zerol«e 
simple variable 



ng ca 

FNCES 
VER,T 
SEQU 
SeQU 
F CDC 
SCRIP 
HIS P 
ADDIT 

TED. 
THE S 
FIRS 
UTJON 
THF S 

firs 

XCH'T 

THF S 

FIRS 

XCH»* 
THF S 
FIRS 
FXP.T 
TC. H 

bloc 



RDER SUBSCRIpTlON»K-l SEQUENCE ARE 
THE AEXP IN EACH SEQUENCE REFERS TO 

produced by the arithmetic expression 
for the actual subscript expressions, 
to the code produced for subtracting 
lower bounds from the subscript 
n(u* yields no code for zero bounds), 
! places array row descriptor in reg a 
. the specific row depends upon thf 
values of the k-l subscripts, 
ses, 

of code are emlted as in case *?, 
he actual sequences are! 
fnce ><aexp»l*)'for the 1st subscript, 
ences,cif first subscript then vn 
.lou, aexp, l*)» for the remaining 

TSMF K>1. 

OINT, CASES #3-6 ARE DIFFERENTIATED 

ION CODE, PARTICULAR TO EACH CASE, IS 



EQUENCE! 
T SUBSCR 

j the ar 

EQUENCE? 

T SUBSCRIPT THEN VV ELSE COCZEROL* 



JPT THEN VV ELSE COC, 

RAY ELEMENT IS PUT IN REG A. 



EQUENCE: 

T SUBSCRIPT THEN VN ELSE CDC, EXP, 



EQUENCE? 
T SUBSCR 
, XCH»*. 



IPT THEN VN ELSE CDC, DUP , l.OD, 

AVE SAME MEANINGS AS DEFINED IN 

K. 



BEGIN 
. IF 

B 



step! * lftbrket then % array itfm not followed by 
egin % a subscript 

if elclass = period then 

IF D0TSYNTAX(TitT2) ThLN % ERROR IN PARTIAL WORD 

GO TO EXIT 
ELSE 



J 

X1 1.4- 
X114- 
XI 14- 

XI 14- 

X114- 



15 


1.33000 


T 





107J0088J0 


15 


134000 


T 





107J0088 


!0 


15 


135000 


T 





107 ? 0088 


10 


15 


136000 


T 





[0780088 


10 


15 


137000 


T 





107?0088 


10 


15 


38000 


T 





107?0088 


10 


15 


139000 


T 





L07?0088 


to 


15 


[40000 


T 





[07J0088 


,0 


15 


41000 


T 





L07?0088 


10 


15' 


142000 


T 





[07?0088 


SO 


15 


143000 


T 





107?0088 


SO 


15 


44000 


T 





[0750088 


to 


15 


145000 


T 





l07?008B 


10 


15 


46000 


T 





L07?0088 


to 


15 


47000 


T 





I.07S0088 


10 


15 


148000 


T 





10750088 


10 


15 


L49000 


T 





10750088 


to 


15 


50000 


T 





107J0088 


10 


15 


151000 


T 


0. 


L07J0088 


to 


151 


52000 


T 


01 


107?0088* 





151 


53000 


T 


01 


107J0088 


-o 


151 


154000 


T 


01 


107*00881 





151 


55000 


T 


01 


[07J0088 





15< 


L56000 


T 





10780088 





151 


157000 


T 


01 


[0780088 





15< 


158000 


T 





10750088 





151 


59000 


T 


01 


[0780088 





151 


60000 


T 


01 


10780088' 





151 


61000 


T 


01 


10780088 





151 


[62000 


T 


0] 


[07J0088 





151 


63000 


T 


0] 


[0780088' 





151 


64000 


T 


01 


[07800881 





151 


65000 


T 


oj 


[0780088 





151 


66000 


T 


0] 


t07!0088 





151 


67000 


T 


01 


[0780088 





151 


68000 


T 


01 


10750088 





151 


69000 


r 


01 


[0750088 





15] 


70000 


T 


0] 


[0750088 





151 


.71000 


T 


01 


[07100881 





151 


72000 


T 


0] 


[0750088 


to 


151 


73000 


T 


01 


[0750088 





15] 


74000 


T 


01 


[0750088! 





151 


75000 


T 


01 


.0780088' 





151 


76000 


T 


01 


0780088! 





151 


177000 


T 


01 


[0750088 





151 


.78000 


T 


01 


[0750088 





15] 


79000 


T 


01 


0750088! 





151 


80000 


T 


01 


0750088) 





151 


.81000 


r 


01 


,0750088! 





151 


82000 


T 


0] 


07500881 





151 


83000 


T 


01 


0750088! 





151 


83100 


C 


0] 


0780088! 


1 


151 


83200 


C 


0] 


0750089! 


3 


151 


83300 


C 


01 


0750090! 





15] 


83400 


c 


01 


0780091! 


2 


151 


83500 


c 


01 


07500921 


1 


15] 


83600 


c 


01 


07500921 


1 



L 
C 

c 

r- 

c 
c 

c 



c 



r 



C 

c 
c 
c 
c 






o 
c 
c 



o 
o 
o 
o 



"^w 






c 

IL 

jo 
s o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



stePit; 
if elclass = assjgnop then 

BEGIN 

IF PARTiALWORD T H EN 
BEGIN 



if pi * fs Then % partial word not left-most?; 
errexitc209); % 

XREFlTf TALL»REMEMBERSEQNO,ASSlGNREF)J 3! 

END % 

ELSE * ASSIGNMENT TO ID WITH NO PARTIAL WORD % 

XMARK(ASSIGNREF)» % 

IF TABLEC F + D = ASTRlSK THFN 3! 

IF (DUPIT != CTABLECI+2) > EQVOP AND TABLEU+2) 

< MULOp) OR TABLECI+2) = AMPERSAND) THEN % 

STEPIT; % 

IF PARTiALWORD OR DUPIT THEN % NEED VALUE ON STAC 

IF TALL. CLASS < INTARRAYID then % NOT NAME ITEM 

EMITPAtR(TALL, ADDRESS. LOD) % 

ELSE * 

EMlTNtTALL, ADDRESS)! % 

IF PARTIALWORD AND DUPiT THEN % 

. . BEGIN % 

EMITOCDUP); 9! 

EMIT t CO. Tl , T2) ; % 

END! % 

stackct i= stackct + re al c part i alword or dupit) 
stepit; % 

if dupit then % we handled first primary % 

SIMPARiTh % 

ELSE % 

AEXp; % 

EMITD(48-T?»T1,T2); % 

EMITPAIRCTALL, ADDRESS. IF PI = FS THEN STD ELSE? 

.. . SND)! 3! 

STACKCT S= 0! % A AND B ARE EMPTY % 

FND % 

ELSE % NOT ASSjGNMfNT 3! 

EMITICTALL.T1.T2)! % 

GO TO EXIT! % 

END OF ASSigNMfNT TO NON SIMPLE NON SUBSCRIPTED % 

VARIABLE! % 

J * 0; 

STACKCT * 0; 

comment 207 varl able-mi ssi nfi leftbracket on subscripted variable 
next: if steRi = factop then 

BEGIN 

IF J + lJf tall.incr then 

BEGIN ERR(203)!G0 EXIT END? 
COMMENT ?03 VARIABLE- THE NUMBER OF SUBSCRIPTS USED IN A ROW 

ROW DESJGNATER DOES NOT MATCH THE ARRAY 
DECLARATION. 
.. . IF STfPi * RTBRKET THEN 

BEGIN ERR(204)!G0 EXIT END! 
COMMFNT ?04 VARIABLE" COMPILER EXpECTS A 3 IN A ROW DESlGNATER 

COMMENT 205 VARIABLE' A ROW DfSIGNATER APPEARS OUTSIDE OF A FILL 

STATEMENT OR ACTUAL PARAMETER LIST, 



* 
* 

*! 



*! 

* 

*; 



83700 
83800 



83900 C 



84000 

84100 
84200 
84300 
84400 
84500 
84600 C 
84700 C 
84750 C 
84800 
84850 
85000 
85100 
85200 
85300 
85400 
85500 
85600 
85700 
85800 
85900 
86000 
86100 
86200 
86300 
86400 
86500 
86600 
86700 C 
86800 C 
86900 
87000 
87100 
87200 
87300 
87400 
87500 
87600 
5234000 
5234500 
5235000 
5253000 
5254000 
5255000 
5256000 
5257000 
5258000 
5259000 
5260000 
5261000 
5262000 
5263000 
5264000 
5265000 



107 


S0092? 


107 


100935 


107 


(0094! 


107 


10095* 


107 


10095! 


107 


100965 


107 


(0097! 


107 


00985 


107 


101015 


107 


t 0101 ? 


107 


101015 


107 


(01065 


107 


.01075 


107 


ioiio; 


107 


10114! 


107 


I0H55 


107 


I0116S 


107 


!0ll85 


107 


10120! 


107 


10120! 


107 


.01225 


107 


10123! 


107 


10124! 


107 


(01245 


107 


S0126! 


107 


(0126! 


107 


!0i28: 


107 


(0128! 


107 


(0129! 


107 


0129! 


107 


10130! 


107 


(0131! 


107 


0132! 


107 


10135! 


107 


01365 


107 


(01375 


107 


(0137-! 


107 


(0137! 


107 


(0138! 


107 


(01395 


107 


10139! 


107 


(0139! 


107 


(0140! 


107 


0140! 


107 


10140! 


107 


(0142! 


107 


10142! 


107 


(0144! 


107 


(0146! 


107 


(0146! 


107 


-0146! 


107 


(0146! 


107 


01475 


107 


0148! 


107 


10148! 


107 


(0148! 


107 


(0148! 



1 

3 
1 
2 
3 

2 
1 
2 
2 
2 

3 
1 

1 
3 

1 
1 


1 

3 

1 




1 

2 

3 

2 
1 
3 

2 
2 
2 

1 
2 
2 
2 

1 
1 

1 





2 
1 
1 
1 
1 



C 

c 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 



o 



u 

o 
o 
o 

o 

o 

o 
o 
o 
o 
o 
o 
o 



o 

O 



IF 



END 
ELCLASSsLlT 
AND TALL. 
BEGIN 
1*1 + 1 i 



IF J=0 ThfN 

EM I TPAIR( TALL, ADDRESS »LOD); 
STePITJ 

GO TO exit; 

OF ROW DESIGNATOR PORTION J 

MO AND ELBATrn.ADDRESSaO AND T ABLEC I + 1 ) = RTBRKET 

CLASS>NAMEID THEN 



IF 



LASS: 



STEPl* 
IF T 
STEP 
EMIT 
EMIT 



STACKCT «- 
GO T 

ELSE 

IF ELCLAS 
IF D 
IF S 
ELSE 



ASSi 
I/O 

it; 

NCTA 
OC IF 

IF 

IF 

o; 

EX 



GNOP THEN BEGIN 
THFN EMlTV(TALL. ADDRESS); 
AEXP; FMlTD(46-T?,Tl»T2)l 

ll:addressj; 

TALL.CLASSftNAMElD THEN 

pi=fs then i sd else isn else 

PlrFS THEN STD ELSE SND); 



IT 



END 



s - period Then begin 
otsyntaX(T1»t2) then go to exit; 
tepl = assignor then if pl-fs then 
begin errc209); go exit end? 
end; 

IF PlsFS THEN BFGlN ERR(210); GO FXJT END.* 



GO TO LASS 



FMITKIF P1 = FL THEN TALL ELSE TALL&REAL ID [ 2 5 4 1 5 7 ] , 1 1 . T?) ; 



EXIT 



COMMENT 
IF J 



COMMENT 



COMMENT 20B 



GO TO 

end; 
aexpj 

STACKCT «• l; 

J «• j + i; 

IF ELCLASS = COMMA ThEN 
BEGIN 
***** MONITOR FUNCTION M4 GO^S HERE ; 
= 1 THFN EMITVcTALL. ADDRESS) ELSE FMiTO(COC); 

GO 10 NEXT} 

end of subscript comma handler ; 
if elclass * rtbrket then begin frr(206);g0 exit end; 
?06 variable- missing right bracket on subscripted variable*; 

GT1*JF TALL,CLASS>NAMEID ThEN 1 ELSE TALL.INCR; 

if j/gt1 then 

begin frr(208);go to exit end; 
variable- number of subscripts does not match with 

array declaration, 
if stfpl = period then % partial word 
if d0tsyntaxct1.t2) then % error 



GO TO EXiT 
ELSE 

stepit; 
if elclass = assignop then % 

BEGIN % 

if partialwoRd then 
if pi * fs then 
errexitc209); % partialword not 



ASSIGNMENT 
VARIABLE 



* 

*; 

35114- 
3114- 
XI 14- 
Xi 14- 

X114- 
TO SUBSCRIPTED 

*i 14- 

X114- 

S5114- 

LEFT-MOST SU4- 



15266000 


T 





107 


501485 1 


15267000 


T 





107 


50149 


53 


15274000 


T 





107 


50151 


13 


15275000 


T 





107 


50152 


50 


15276000 


T 





107 


'0152 


! 1 


15276010 


T 





107 


»0l52 


'1 


15276020 


T 





107 


50156 


80 


15276030 


T 





107 


50158 


1 1 


15276040 


T 





107 


50159 


!2 


15276050 


T 





107 


50160 


(0 


15276060 


T 





107 


; oi6i 


13 


15276070 


T 





107 


50164 


» 1 


15276080 


T 





107 


50167 


!2 


15276090 


T 





107 


50168 


'1 


15276100 


T 





107 


50170 


SO 


15276110 


T 





107 


10173 


12 


15276115 


T 





107 


50175 


13 


15276120 


T 





107 


50176 


!1 


15276130 


T 





107 


! 0177 


'2 


15276140 


T 





107 


10177 


2 


15276150 


T 


01 


107 


10178 


U 


15276160 


T 





107 


10180 


1 


15276170 


T 


01 


107 


0182) 


1 


15276180 


T 





107 


10184 


1 


15276190 


T 


01 


107 


•01841 


1 


15276200 


T 





107 


10187 


2 


15276210 


T 


0] 


107 


-0187* 


2 


15276220 


T 





107 


5 0191 


2 


15276230 


T 


0] 


[07 


5 0191 


2 


15276240 


T 


01 


107 


01911 


3 


15277000 


T 


01 


.07 


01911 


3 


15278000 


T 


0) 


07 


01921 





15280000 


T 


01 


07 


0193! 


2 


15287000 


T 


01 


.07 


0194! 





15288000 


T 


01 


i07 


0195! 


2 


15289000 


T 


01 


07 


01951 


3 


15290000 


T 


01 


07 


0195! 


3 


15291000 


T 


01 


[07 


0199! 


2 


15292000 


T 


01 


07 


0199! 


2 


15293000 


T 


0] 


07 


01998 


3 


15294000 


T 


01 


071 


01991 


3 


15295000 


T 


01 


071 


0202! 





15295100 


T 


01 


07 


0202! 





15296000 


T 


0] 


071 


02065 





15297000 


T 


0] 


07' 


02061 


1 


15298000 


T 


01 


.07 


02081 


1 


15299000 


T 


0] 


071 


0208! 


1 


15300000 


P 


01 


071 


0208! 


1 


15300100 


C 


01 


07 


02091 


3 


15300200 


C 


01 


075 


02115 


2 


15300300 


C 


01 


07. 


0211! 


2 


15300400 


C 


01 


07 


0211! 


2 


15300500 


C 


01 


07? 


02125 





15300600 


C 


01 


07! 


02135 


2 


15300700 


C 


01 


07! 


0213? 


3 


15300800 


C 


01 


07! 


0214 5 





15300900 


c 


01 


07? 


02155 


3 



c 
c 
c 
c 



c 
c 



c 
c 
c 



c 
c 

o 
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o 
o 



c 



u 

o 
o 
o 
: o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



XREFI 
IF J 

EMI 
ELSE 

EMI 
IF TA 

EMI 
IF PI 

GO 
IF TA 

IF 

S 

IF PA 

BEG 

E 

E 

END 

IF PA 

BEG 

E 

E 

END 

STEPI 

IF DU 

SIM 

ELSE 

AEX 
FMITD 
EMITO 
IF TA 
EMI 
FMITO 



EN 

ELSE 

BE 



STACK 
P1 J- 

D OF 



T( TALL, RfMEMBERSEQNO, ASS IGNREF)* 
= 1 THEN % StNGLE-DIMENSIONED 

tn(tall. address) 

toccdo? 

ll. class > longid then % explicit index op 
to(inx); % required 

= fr then % called from for statement 

TO EXITS 

blec i+l) = astrisk then 
(duplt»=(tableci+2) > eqvop and tableci+2) 
< mulop) or tableci+2) = ampersand) then 
tepit; 

RTULW'ORd OR DUPIT THEN % NEED VALUE ON STA 

IN 

MITOCDUP)* 

MITOCLOD)? 

• 
* 

RTIALWORD AND DUPIT THEN 
IN 

MITOCDUP)? 
MITICO.T1.T2); 

• 
P 

t; 

PIT THEN 
PARjTH 

p; 

(4B-T?,TJ,T2)| 
C XCH > ? 

ll, address > 1023 then 
tocprtf); 

cif tall, class mod ? = intarrayid mod 2 the 
if pi = fs then isd else isn 

else if pi = fs then std else snd)* 
ct 1= 0) u 8 b are empty 

0; 

ASSIGNMENT TO SUBSCRIPTED VARIABLE 



GTN % HANDLING OF NO ASSIGNMENT CASE 
SPCLMON J* PI = FP OR PARTIALWORD OR ELCLASS > 
AMPERSAND? 

if J = i thfn % single dimensioned 

IF TALL. CLASS > LONGID THEN % NAME ITEM 
BEGIN 

EMiTNfTALL. ADDRESS)? 
EMi TOc INX)J 
IF SPcLMON THEN 
EMlTOfLOD)? 
END 
ELSE % REFERENCE TO SiNgLE DIMENSIONED ARRAY 
IF SPCLMON THEN 

EMlTVfTALL, ADDRESS) 
ELSE 

EMlTNfTALL, ADDRESS) 
ELSE % MULT J-DIMENSIONED CASE 

EMITOCIF SPCLMON THEN COC ELSE CDC); 



% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 

CK 
% 
% 
% 
% 
% 
% 
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% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 

H% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



15301 
15301 
15301 
15301 
15301 
15301 
15 301 
15301 
15301 
15 301 
15302 
15302 
15302 
15302 
15302 
15302 
15302 
15302 
15302 
15302 
15303 
15303 
15303 
15303 
15303 
15303 
15 303 
15303 
15303 
15303 
15304 
15 304 
15304 
15 304 
15304 
15304 
15304 
15 304 
15304 
15304 
15 305 
15 305 
15305 
15305 
15305 
15305 
15305 
15305 
15305 
15305 
15306 
15306 
15306 
15306 
15306 
15306 
15306 



000 
100 
200 
300 
400 
500 
600 



700 C 



800 

900 

000 

100 

200 

300 

400 

500 

600 

700 

800 

900 

000 

100 

200 

300 

400 

500 

600 

700 

800 

900 C 

000 P 

100 C 

200 C 

300 

400 

500 

600 

700 

800 

900 

000 

100 

200 

300 

400 

500 

600 

700 

800 

900 

000 

100 

200 

300 

400 

500 



C 
C 
C 

c 
c 
c 
c 
p 
c 
c 
c 
c 
c 
c 
c 
c 
c 
P 
c 
c 
c 
c 
c 



600 C 






107 


50217J 





107 


:02l9: 





107 


S0220J 





107 


50222* 





107 


50222* 





107 


S0223J 





107 


J0224J 





107 


10226: 





107 


50226* 





107 


80227* 


0' 


L07 


5 0229* 





107 


50232$ 





107 


50235* 


01 


107 


50236? 





107 


50238* 





107 


50238$ 


o: 


[07 


10239! 


o< 


107 


(0240* 





107 


50240* 


01 


107 


10241* 


01 


107 


10241* 


01 


107 


10242* 


01 


107 


10243* 


01 


[07 


10243* 


01 


07 


10244* 


0] 


.07 


10244* 


01 


107 


10245* 


0] 


107 


50245* 


01 


1 07 


:0246s 


01 


107 


102485 


0; 


[07 


10249* 


01 


107 


10250* 


0] 


07 


!0251* 


01 


107 


10254* 


01 


,07 


0256* 


01 


07 


•02595 


0] 


i07 


'0260* 


01 


07 


0261* 


01 


107 


0261* 


01 


,07 


'0261* 


01 


07 


0262* 


01 


07 


0264* 


01 


07 


0265* 


01 


07 


0266* 


01 


07 


0267* 


01 


07 


0268* 


01 


07 


0269* 


01 


07 


0270* 


01 


07 


0270* 


01 


07. 


0271* 


01 


07 


0271* 


01 


07 


0271* 


01 


07 


0272* 


01 


7 


0274* 


01 


07 


2 7 4 J 


0] 


071 


0275* 


01 


07 J 


0276* 



c 

c 
c 
c 
c 
c 

c 

c 
c 
c 
c 
c 
c 
c 
c 



u 



o 



I :' 



o 
o 
o 
o 

p 

o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 

o 



EXIT 



EN 
END 
ELSE 

beg i 

Tl * = 

PUT( 
IE T 
IF C 
EMIT 
STEP 
END 
END 



IF PI = ES THEN Z EXPECTED AN ASSIGNMENT %lt4- 

ERRE.XlTC2tO)J S114- 

STACKCT is iJ Z BFCAUSE REGISTERS ARE NON-EMPTY ZlH- 

if partialwoRd then xna- 

BEGJN % 1 1 4- 

EMITicO,Ti,T2); XI H- 

Pl * = 0) S114- 

end; xii4- 

D OF NO ASSIGNMENT CASE; Z114- 
OF SUBSCRIPTED VARIABLES 



N COM 
TAKEC 
L»T2) 
1=0 T 
Tl*L- 
CTlx4 
ITJ 

OF LA 
OF TH 



MENT LaBfLIDJ 
T2JaRlT(TALL)); 

■ 

HEN T] J=L> 

Tl) DIV 4 > 127 THEN BEGIN T 1*0 I FLAGt 50 ) ; END J 

+ 3); 

BEL id; 

E VARIABLE ROUTINE; 



STREAM PROCEDURES? 
OF LABFL ; 



comment this section generates code for 
comment do label decs upon appearance 
procedure declarelabel ; 

begin 

klassf <- stubid* 

vonf «- formalf «. false; 

ADDRSF * o; 

MAKEUPACCUMJ Z; PUTNBUMPCO); 

ELBATfl] «- ACCUMC01& LAST I NFO[ 35 J 35 t 1 3] ; 

end; 
procedure streamstmt ; 

BEGIN 

DEFINE LFTPAREM=LeFTPAREN#,L0C=[36:123#»LASTGT=[21?12]#. 



L0CFLD=36J36:i?#,LGTFLD=24J24! 12#? 
DEFINE LEVELsLVL#,ADDOpsADOP#; 



DEFINE 



PROCEDU 
COM 



JFW = 

RCA = 

JRV = 

CRF = 

BNS - 

NOP ~ 

FNS = 

TAN ~ 

RIT = 

JFC = 

SFD = 

RSA = 

TRP = 

RSS n 

BSD = 

SFC = 

JNS = 

RE ADJUS 

MENT ri X 



39# 

not 

47# 
35# 
4 2# 
\t 
4l# 
30# 
3l# 
37# 
06* 
4 3* 
600 
3# 
2# 
3l\U 
38* 



COMMENT 7,5.5.1 JUMP FORWARD UNCONDITIONAL 

COMMENT 7.S.7.6 RECALL CONTROL ADDRESS 

COMMENT 7,5.5.2 JUMP REVERSE UNCONDITIONAL 

COMMENT 7,5,10,6 CALL REPEAT FIELD 

COMMENT 7,5.5.5 BEGIN LOOP 
COMMENT 

COMMENT 7,5,5.6 END LOOP 

COMMENT 7,5.3.7 TEST FOR ALPHAMERIC 

COMMENT 7,5,3,8 TEST BIT 

COMMENT 7,5.5.3 JuMP FORWARD CONDITIONAL 

COMMENT 7,5,7.8 SET DESTINATION ADDRESS 

COMMENT 7,5,7,4 RECALL SOURCE ADDRESS 

COMMENT 7,5.2.2 TRANSFER PROGRAM CHARACTERS 

COMMENT 7,5,6,6 SKIP SOURCE BIT 

COMMENT 7.5,6,5 SKIP DESTINATION BITS 

COMMENT 7,5,10,1 SET COUNT ; 

COMMENT 7,5,5,7 JUMP OUT LOOP 



C EMITS BASICLY FORWARD JUMPS, HOWEVER IN THE CASE 





15306700 


C 


0107* 


0278J 
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15306800 
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15306900 
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0281' 


2 




15307000 
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0282 







15307100 


C 
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0282« 
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15307200 


C 


0107 


02831 


2 




15307300 


C 


0107 


0284 


1 




15307400 


C 


0107 


0285i 


3 




15307500 
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0107 


0285! 


3 




15376000 


T 


0107 


0285 


3 




15376100 


T 


0107 


0285. 


3 




15376200 


T 


0107 


•0285 


3 




15376300 


T 


0107 


0286 







15376400 


T 


0107 


0288 







15376500 


T 


0107 


0289 


2 




15376600 


T 


0107 


0291< 


2 




15376700 


T 


0107 


0295! 


3 




15376800 


T 


0107 


.0297' 


2 




15376900 


T 


0107 


.0297 


3 




15377000 


T 


0107 


0297! 


3 


107 IS 


302 LONG. 


NEXT SEG 
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16000000 


T 


0003 


0628! 


1 




16000050 


T 


0003 


10628 


1 




16000100 


T 


0003 


0628 


1 




16000200 


T 


0003 


0628 


1 




16000300 


T 


0003 


0628 


1 




16000400 


T 


0003 


0629 


3 




16000500 


T 


0003 


0631 


2 




16000600 


T 


0003 


0631 


3 




16000700 


T 


0003 


0633 


3 




16000800 


T 


0003 


0636 







16001000 


T 


0003 


10636. 







16002000 


T 


0003 


0636. 







16003000 


T 


0003 


10636 
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108 




16004000 


T 


0108 


0000! 







16005000 


T 


0108 


0000 







16006000 


T 


0108 


10000 







16007000 


T 


0108 


0000 







16008000 


T 


0108 


10000 







16009000 


T 


0108 


0000 







16010000 


T 


0108 


0000 







16011000 


T 


0108 


10000 







16012000 


T 


0108 


0000 







16013000 


T 


0108 
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16014000 


T 


0108 


.0000 


10 




16015000 


T 


0108 


00001 







16016000 


T 


0108 


0000 







16017000 


T 


0108 


0000 







16018000 


T 


0108! 


00001 







1601 9000 


T 


0108 


10000 







16020000 


T 


0108 


10000. 







16091000 


T 


0108 
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16022000 


T 


0108 


0000 







16023000 


T 
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16023100 


T 


0108 
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16024000 


T 
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OF INSTRUCTIONS INTERpTED AS JUMPS BECAUSE OF A CRF 
A VALUE = AND ThE JUMP * 64 SYLLABLES A JFW 1 AND 
A RCA L CL IS STACK ADDRESS OF A PSEUDO LABEL WHICH 

MUST ALSO BE MANUFACTURED) IS EMITTED, } 

PROCEDURE FIXC(S); VALUE Si REAL S; 
BFGIN 
RFAL SaVL»D»F* 



ON 



FND 



IF D* (SAVL^L) - (U*S)-1 

ELSE FLAGC700); 
L«-SAVL J 
FTXC J 



5 63 then emitccd»getcs5) 



comment emitjump js called by gotos and jumpchain, 

t H js routine will emit a jump if the distance is < 63 

SYLLABLES .OTHERWISE, IT GETS A PRT CELL AND STUFFS ThE 
STACK ADDRESS INTO THE LABEL ENTRY IN INFO AND EMITS AN 
RCA ON THIS STACK CELL. AT EXECUTION TIME ACTUAL PARAPART 
INSURES US THAT ThIS CELL WILL CONATlN A LABEL DESCRIPTOR 
POINTING TO OUR LABEL IN QUESTION, I 
PROCEDURE EMlTjUMPf E); VALUE E* REAL £ { 
BEGIN 
REAL T,DJ 

REAL ADDR) 
IF ABSf 

n*CT*TAKECGlT(E3) 

FLAGf/OO) 
ELSE EMITCCD, IF D 
END EMIT JUMP; 



START OF 



109 IS 



START OF 



L0C)-L-1)*64 THEN 

<o then jrv else jfwj; 



COMMENT WHEN JUMPCHAIN IS CALLED THERE IS A LINKEDLlST IN THE CODE 
ARRAY WHERE JFWS MUST BE PLACED, THE 1ST LINK IS POINTED 
TO BY THE LOC FIELD Of EACH LABEL ENTRY IN INFO, THE LAST 

Link is = 4096, ; 
procedure jumpchainc e)j value e*real ej 

BFGIN 

REAL SAVL ,LlNK* 

SAVL * LI 

L «• TAKECGlT(E)).LASTfiT I 
WHILE L* 4095 DO 
BEGIN 

link «■ getcdj 
em it jump ( e)| 

L ♦ LINK 

ENDJ 
L+SAVL; 
END JUMPCHAIN J 

COMMENT NESTS COMPILES THF NEST STATEMENT, 

A VARIABLE NEST INDEX CAUSES THF CODE* 

CRF V. BNS , NOP, NOP, TO BF GENERATED INITIALLY. 
AT THE RIGHT PAREN THF BMS IS FIXED WITH THE LENGTH OF 
THF NFIST (NUMBER OF SYLLABLES) IF THE LENGTH <63 , OTHERW I SE 
IT IS FIXED WITH A 1 AND I HE NOPS REPLACED WITH JFW 1, 

rca p. this is done because the value of v at execution 
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start of 
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60?5000 
6026000 
60?7000 
60?8000 
6029000 
6030000 
6031000 
SEGMENT 
6032000 
6033000 
6034000 
6057000 

10 LON 
6058000 
6059000 
6060000 
6061000 
6062000 
6063000 
6064000 
6065000 
6066000 
6067000 
SEGMENT 
6068000 
6069000 
6070000 
6071000 
6079000 
6080000 

12 LON 
6081000 
6082000 
6083000 
6084000 
6085000 
6086000 
6087000 
SEGMENT 
6088000 
6089000 
6090000 
6091,000 
6092000 
6093000 
6094000 
6095000 
6096000 
6097000 

12 LON 
6098000 
6099000 
6100000 
61 01000 
6102000 
6103000 
6104000 



T 
T 

T 
T 
T 
T 

T 



**** 



T 
T 
T 
T 
G, 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 







NE 










**** 



T 
T 

T 
T 
T 
T 
G, 
T 
T 
T 
T 
T 
T 
T 









NE 










**** 
T 



T 
T 
T 
T 

T 
T 
T 
T 

T 



G» NE 
T 



T 

T 
T 
T 

T 
T 



108S0000 
10880000 
10880000 
10880000 
10880000 
10880000 

10880000 

****** 

10980000 

10980004 

10980006 

10980007 

XT SEG 

108J0000 

10880000 

10880000 

loasoooo 

10880000 
10880000 
10880000 
10880000 
10880000 
10880000 

mfi ^- ^ ^p ^^ ^S 

11080000 

11080000 

11080000 

11080004 

11080005 

11080009 

XT SEG 

10880000 

10880000 

10880000 

10880000 

10880000 

10880000 

10880000 

****** 

111*0000 

11180000 

11180003 

11180004 

11180004 

11180005 

11180006 

111S0006 

1 11 80009 

111 80009 

XT SEG 

10880000 

10880000 

10880000 
10880000 
10880000 
10880000 
10880000 
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1 

1 

2 

08 
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1 
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2 

08 















11 



1 
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2 

3 

08 
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MAY = AND THIS CODE! CAUSES A JUMP AROUND THE NEST, 
JUMPOUT INFO IS RfMEMRERED IN A RECURSIVE CELL AND 
NEST LEVEL INCREASED BY ONE, 

when the right paren is reached, c if the statements in 

The nest compiled), joinfo is checked for the existance 
of jumpout statements in the nest, if so, the the jumps 
are et^ed by faking totos into compiling the required 

JUMPS. 

FINALLY THE BNS IS FIXED, IF REQUIRED, AND NEST LEVFL 
AND JOINFO RESTORED TO THEIR ORIGINAL VALUES, ? 
PROCEDURE NESTS; 

BEGIN 

LABEL EXIT; 

REAL JOINT. BNSFIX; 

IF elclass*litno THEN 

BEGIN 

EMITCCELBATU ],ADDRESS»CRF); BNSFIX* L; 

EMIT(BNS); 

END 
FLSE EM I TCCELBATtn, ADDRESS* BNS); 
IF STEPI 3* LFTPARE'N THEN BFGIN ERRC262); GO TO EXIT END; 

nestlevel^nestlevel + i; 

JOINT *■ JOjNFO; 
JO.iNFO <• Of 
DO BFGIN 

stepit; erRortog «• true; streamstmt 
end until elclass # semicolon ; 

TF ELCLASS f RTPAREN ThEN BEGIN ERRC262);G0 TO EXIT END; 

EMIT C ENS)? 

IF JOINFO f. THEN 

BEGIN 

PREPARE TO CALL JyMPCHAlN FORJUMPOUTS; 

ADJUST? 

PUT(TAKE(GlTcJO|NFO))&L[LOCFLD],GlT(JOiNFO)); 

JUMPCHAlNcTAKECj0iNF0HJ0INF0r35i35Jl3]); 

end; 

TF BNSFIX t THEN F ? Xc ( BNSF I X ) ; 

NESTLEVEL «■ NESTLEVEL-t' 
JOINFO «- JOINT ; 

END nfsts ; 



COMMENT 



EXIT: 



COMMENT LABELS HANDLES STREAM LABELS, 

ALL LABELS ARE ADJUSTED TO THE BEGINING OF THE NEXT 
WORD MN THE PROGRAMSTREAM), 

IF A GO TO HAS N^T BEEN ENCOUNTERED BEFORE THE LABEL 
THEN THE NEST LfVeL FIELD IS ENTERED AND THE DEFINED RlT, 
Cl»l]» SET TO ONE. FOR DEFINED LABELS, IF WHERE A GO TO 
HAS APPEARED, A ChEC« IS MADE THAT THE CURRENT NEST LEVEL 
MATCHES THE LEVEL OF THE LABEL. 

MULTIPLE oCCURAnCES ARE ALSO CHECKED FOR AND FLAGGED, 
FINALLY, JUMPCHAIN IS CALLED TO FIX Up ANY FORWARD GO TOS 
AND GET A PRT LOCATION FOR ANY JUMPS >64 SYLLABLES, ; 
PROCEDURE LABELS; 

RFGIN 

RFAL GTi; 





16105000 


T 


0] 


.0650000 


.0 




16106000 


T 


01 


lOaioooo 







16107000 


T 


01 


[0610000 


10 




16108000 


T 


01 


t 08!0000 


to 




16109000 


T 


01 


0850000' 







161 10000 
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01 


0850000 







161 1 1000 
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0] 


[0850000 


!0 




161 12000 
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01 


[0850000 







161 1 3000 


T 


0] 


0810000 







16} 14000 


T 


01 


10850000 


10 


A 


161 15000 


T 


01 


[0850000 


-0 




16H6000 


T 


01 


0850000 







161 17000 


T 


01 


0850000 
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SEGMENT 
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<***** 
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161 18000 


T 


0] 


1250000 







16119000 


T 


0] 


1250000 







16120000 


T 


05 


[1250000 


11 




L6121000 


T 


01 


1250001 


2 




16122000 


T 


03 


L 12 * 0003 


3 




16123000 


T 


0] 


L1250004 


1 




16124000 


T 


0] 


.1250004" 


1 




16125000 


T 


01 


12500061 


1 




16126000 


T 


0] 


1250009 


3 




16127000 


T 


01 


[1250010 


1 




16128000 


T 


01 


.1250011 


3 




16129000 


T 


01 


12*0012 







16130000 


T 


01 


11250013 


2 




16131000 


T 


01 


11250014 


10 




16132000 


T 


01 


1250016 







16133000 


T 


01 


1250018 


1 




16134000 


T 


01 


1250019 


2 




16135000 


T 


01 


[1250020 







16136000 


T 


01 


12500201 


1 




L6137000 


T 


01 


1250020! 


1 




16138000 


T 


01 


1250021! 


2 




L6139000 


T 


01 


1250024 


1 




[6140000 


T 


01 


[1250026 


'1 




I 6 1 4 1 


T 


0] 


1250026 


1 




16142000 


T 


01 


[1250028 


1 




16143000 


T 


01 


1250030 







16144000 


T 


01 


11250030 
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16145000 


T 


01 


[0850000 


10 




16146000 


T 


01 


0850000 







16147000 


T 


01 


0850000 







16148000 


T 


01 


0850000 







[6149000 


T 


01 


0850000! 







16150000 


T 


01 


0850000 


10 




16151000 


T 


0] 


0850000 







16152000 


T 


01 


0850000 







16153000 


T 


01 


0850000 


!0 




16154000 


T 


01 


0850000. 







L6I55000 


T 


01 


0850000! 







16156000 
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01 


[0850000 







16157000 
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01 
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T 


01 


.0850000! 





START OF 


SEGMENT 


**** ****** 


113 



c 
c 
c 
c 
c 



c 
c 






c 
c 
c 
c 

c 

c 
c 

c 



u 



; ,t 
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APJU 

Cjt 

XMAR 

if s 

ELSE 



ST; 

«- EL.BATC I J; 

KCLBLREF)* % MARK LABEL OCCURENCE FOR XREF 
TEPI / COLON THEN FRRC258) 

BEGIN 

IF TAKECGT2*6IT(GT1)).U0C * THFN FLAGC259); 

IF GT1>0 THEN 

BEGIN 

PUT(-CTAKE(6Tl)&NESTLEVEUni**3l5]},GTl)l 

PUTC-L.,gT2) 

fNd 



St 1 1 ' 



ELSE 



BEGIN 

IF GT1,LEVfL#NESTLeVEL THEN FLAG(257); 

PUT((-L)&TAKECGT2)[UGTFLD3»6T2); 

jUMPCHAlNCrJl)? 

ENDJ 



J S 

END 



END 
TEPITI 

Labels 



comment tfs compiles ie statements, 

first the test t s compiled, note that in the 
constructs "sc relop dc" and "sc relop string" that 
The syllable emitted is fetched from one of two fields 
in the elbat word for the relational operator, otherwise 
the code is emitted straightaway, 
a test is made to sef whether the statement after thf 
"then" could possibly be longer than 63 syllables, and if 
s0» z nops are emitted for f ixc in case a rca will have 
to be generated, 

this procedure does no opumazation in the cases 
if then go to l. if thfn statement else go to Lp OR 
if then go to Li else go to L2 ; 
procedure tfsj pfgin 

DEFINE C0MPAREC0DE=[42!6]#,TeSTC0DE*[3656]#} 

label ifsb»iftog,ifscexlt; 
switch ifsw * ifsb, ifTogmfSc; 
real addr,fix1,fix2 j 

APDR<-1 ; 

GO TO TFSWrSTEPI -SBV-H 3 i 

if elclass=l0clid thfn 
begin 

EM I TCfELBATm. ADDRESS. CRF); 

ADDR*0; 

END 
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START OF 



ELSE 



fFSC: 



IF ELCLASS = LITN0 THEN ADDR *• ELBATtl], ADDRESS 

BEGIN ERRC250); Go TO EXIT END; 

SCV THEN BEGIN ERRCZ63)lGO TO EXIT ENDJ 
RELOP THEN BEGIN ERR(26«)IG0 TO EXjT END; 
DCV THEN EMlTCC ADDR » ELBAT r I - 1 ] . COMP ARECODE ) 



ELSE 
IF STEPI 
IF STEPI 
IF STEPI 
ELSE 

IF ELCLASS = STRNfiCON THEN 

FMlUCACCUMU ]iCl8l6]*ELBATr 1-1 J.TESTCODE) 



16158000 


T 


0] 


11310000*0 




16159000 


T 


01 


L 1 3:0000 ! 1 


,•"> 


16159100 


C 


0] 


13S000153 


1 

■'- — > 


16160000 


T 


01 


13*0005J3 




16161000 


T 


01 


13*0007*3 


s—- 


16162000 


T 


0! 


113*0008*0 


v_; 


16163000 


T 


01 


113*0008*1 




16164000 


T 


01 


.13*0012*1 


_. 


16165000 


T 


01 


113*0013*2 


c 


16166000 


T 


01 


[13*0013*3 




161 67*000 


T 


0] 


.13*0016*1 


/-> 


16168000 


T 


0! 


113*0017*2 


u 


16169000 


T 


01 


.13*0017*3 




16170000 


T 


01 


,13*0017*3 


c 


16171000 


T 


01 


13*0018*0 


16172000 


T 


01 


13*0020*1 




16173000 


T 


01 


13*0023*3 


,<-> 


16174000 


T 


01 


1350024*0 


L, 


16175000 


T 


01 


13*0024*0 




16176000 


T 


01 


13*0024*0 


c 


16177000 


T 


01 


13*0024*1 
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16178000 


T 


01 


08*0000*0 


, , 


16179000 


T 


01 


08*0000*0 


(J 


16180000 


T 


01 


08*0000*0 




16181000 


T 


01 


08*0000*0 


.' — -.. 


16182000 


T 


01 


08*0000*0 





16183000 


T 


01 


08*0000*0 




16184000 


T 


01 


08*0000*0 




16185000 


T 


01 


08*0000*0 


c 


16186000 


T 


0) 


08*0000*0 




16187000 


T 


01 


08*0000*0 




161 88000 


T 


01 


08*0000*0 


c 


16189000 


T 


01 


08*0000*0 




16190000 


T 


01 


08*0000*0 


_ 


16191000 


T 


0] 


08*0000*0 


c 


16192000 


T 


01 


08*0000*0 


- 
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***** 
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,-■— \ 


16193000 


T 


01 


14*0000*0 


c 


16194000 


T 


01 


14*0000*0 




16195000 


T 


01 


14*0004* 1 





16J96000 


T 


01 


14*0004* 1 


c 


16197000 


T 


01 


14*0005*3 




16198000 


T 


01 


14*0009*2 


;'"N 


161 99000 


T 


0] 


14*0009*3 


c 


16200000 


T 


01 


I4*00i0?0 




16201000 


T 


01 


14*0012*0 


, , 


16202000 


T 


01 


14*0012*1 


u 


16203000 


T 


01 


14*0012*1 




16204000 


T 


01 


14*0012*1 





16?05000 


T 


01 


14*0014*1 


16206000 


T 


01 


14*0017*3 




16207000 


T 


01 


14*0020* 1 




16208000 


T 


01 


14*0023*3 





16209000 


T 


01 


14*0026* 1 




16210000 


T 


01 


14*0027*3 


/*~~- 


16211000 


T 


01 


14*0028*1 
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o 



o 
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o 
o 

jo 

'O 

o 



o 



o 
o 
o 
o 
o 



o 



u 

o 

o 

o 



FLSE 

TF elclass^liTmo then em i tc c c> elbat u -i ] . testcode) else 

IF ELCLASS<IDMAX AND Qs'»5ALPHA" THEN FM I TC ( 1 7, TAN ) 

fi.se begin errc?65);g0 to exit end; 

GO TO IFTOG J 
IFSB: EMITC(1»BIT); 
IFTOG t IF STEPI * THENV THEN BEGIN ERRC266); GO TO EXIT END; 

fiXi *• l; 

EMIT(JEC); 

IF STEPT^ELSEV 1'HENZ 

streamstmt; 

IF ELCtASSs ELSEV THEN 

begin 

F1X2 * l; EMITcJFW); 

FlXC(FlXl); 

stepit; 
streamstmt; 

FI XCf FIX25 J 

END 
ELSE FJXC(EIXI); 
EXITJEND IFS ; 

COMMENT ROTOS HANDLES fiO TO AND THE LAST PART OF JUMP OUT TO 
STATEMENTS, 

IE THE LABEL HAS BEEN ENCOUNTERED THEN EMlTjUMP IS CALLED 
AN PRODUCES A JRV OR RCA IN THE CASE OF JUMPS>64 SYLLABL 
ES, OTHERWISE* A LINK IS EMITTED POINTING ANY PREVIOUS 
GO ToS IN THE CASE OF FORWARD JUMPS, 

FINALLY* IF THE NpST LEVEL IS DEFINED THEN IT IS CHECKED 
AGAINST THE CURRENT LE^EL MINUS THE NUMBER OF LEVELS TO 
BE JUMPED OUT. oThERW I SE, NEST LEVEL IS DEFINED, ; 
PROCEDURE G0T0S; 

BEGIN 

LABEL EXIT; 



114 



START 



IF STEPI *T0V THEN 1*1-1 ; 

IF STEPI * STLABID THEN IF ELCLASS < IDMAX THEN 

DECLARELABEL ELSE BEGIN ERRC260)J GO To EXIT END; 
IF(GT?*TAKEfGlTCGTl*ELBAT[i]))),MON-l 
OR GT2.L0C*0 THEN EM I T jUMP( GT1 ) 
ELSE 

BEGIN pUT(0&Lr24t36»12]»GlT(GTl)); 
IF GT1>0 THEN 
BEGIN 

PUT(-CTAKE(GT1)S(NESTLEVEL-JUMPLEVEL)CHU3!5])»6T1); 
EMITNC1023); 
F N D 



FLSE 



BFGIN 

IF GT1, LEVEL * NfSTLEVeL- 

F.MiT(GT2,LaST6T)J 



JUMPLEVEL THEN FLAGC257) 



EXIT: 



end; 
end; 
jumplevel*o 
fno gotos 



COMMENT RELEASFS COMPILES THE STREAM ReLEASF STATEMENT. 
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C 


16212000 


T 


0114*0031*2 




16212500 


T 


0114*0032*0 


^. 


1621 3000 


T 


01141003610 


(„ 


1621 4000 


T 


0114*0039*3 




16215000 


T 
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^~, 


16?]6000 


T 
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! \_ 


16217000 


T 


01145004512 




16218000 


T 


0114*0047*3 


s 


16219000 


T 


0114*0048: 1 


L. 


16220000 


T 


0114*0049*2 




16229000 


T 


0114*005010 


c 


16230000 


T 


0114*0051 *2 


16231000 


T 


0114*0052*0 




16232000 


T 


0114*0052* 1 


^_ 


16233000 


T 


0114*0054*0 


L. 


16234000 


T 


0114*0054* 1 




16235000 


T 


0114*0055*2 


y'"~ v 


16236000 


T 


0114*0055*3 


( 


16237000 


T 


0114*0056* 1 




16238000 


T 


0114*0056* 1 


c 


16239000 


T 


0114*0057*3 
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16240000 


T 


0108*0000*0 


c 


16241000 


T 


0108*0000*0 


16242000 


T 


0108*0000*0 


- 


16243000 


T 


0108*000050 


c 


16244000 


T 


0108*0000*0 


16245000 


T 


0108*0000*0 




16246000 


T 


0108*0000*0 


c 


16247000 


T 


0108*0000*0 


16248000 


T 


0108*0000*0 




16249000 


T 


0108*0000*0 


/*■*> 


16250000 


T 


0108*0000*0 


u 


16251000 


T 


0108*0000*0 
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16252000 


T 


0115*0000*0 


I w 


16253000 


T 


0115*0002*1 




16253100 


T 


0115*0005*2 


c 


16254000 


T 


0115*0007*3 


16255000 


T 


0115*0010*1 




16256000 


T 


0115*0013*3 




16257000 


T 


0115*0014*0 


c 


16258000 


T 


0115*0017*2 




16259000 


T 


0115*0017*3 


,"-". 


16260000 


T 


0115*0018*0 


u 


16261000 


T 


0115*0021*2 




16262000 


T 


0115*0022*0 


,-— "\ 


16263000 


T 


0115*0022*0 


u 


16264000 


T 


0115*0022*0 




16265000 


T 


0115*0022*1 


l^> 


16266000 


T 


0115*0025*3 


L. 


16267000 


T 


0115*0027*2 




16268000 


T 


0115*0027*2 


c 


16269000 


T 


0115*0027*2 


16270000 


T 


0115*0027*3 
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The code generated is j 

SED FILE 

RSA 0, 
AT EXECUTION TIME THIS CAUSES 
InTERPFTED BY THE MCP TO MEAN 
BY THE DESTINATION ADDRESS, 

THE MONITOR BIT IS SET IN INFO FOR THE LOCAL VARIABLE SO 
THAT ACUTAL PARaPART MAY BE INFORMED LATER THAT A FILF 
MUST BE PASSED FOR THlS FORMAL PARAMETER." 



AN INVALID ADDRESS WHICH IS 
RELEASE THE FILE POINTED TO 



COMMENT IMDEXS CO 
OR LOCALID 
ThREE CASE 
LETIN 
CASE 
CASE 
CASE 

the variab 

CASE EXIST 

the code t 
each fleme 
right to l 
may requir 
in this pr 
proper rep 
fncounteRe 

ONF AT A T 

used as Th 
The proper 

NOTE! IF M 
ERRO 
PROCEDURE. INDFXS; 
BFGIN 
LABEL EXIT, GENE 



MPTLE 
S . 
S PRE 
G X B 
I 

II 
III 
IE "I 

Sf sue 

BE 
NT OF 
EFT, 

E AT 
OCEDU 
EAT P 
D, Th 

1 ME A 
E REP 

ADD 
ACROI 
R. 



STATEMENTS BEGINING WITH S I » Dl . C I , T ALLY 



SENT ThEMS 
E EITHER 
L.OCLID «- X 
x <- x , , , 
X * EITHER 

ndex» IS C 

H THAT ARR 
EMITTED* 

MACRO HAS 
UNUSED SYL 
MOST ONE R 
RE,INDfXS, 
ART BY THE 
E SYLLABLE 
NO IF THE 
EAT PART.T 
RESS AND 
TYPE] = 



ELVES* 

F S i , D 1 , C J 



OR TALLY, THEY ARE? 



LOC.LOCLID.SC 
OMPUTED, DEPEND 
AY ELEMENT "MA 

1-3 SYLLABLE 
LABLES MUST = 
EPEAT PART, 
THE VARIABLE " 
TIME THE LABE 
S ARE FETCHED 
REPEAT PART t 
HUS BUILDING A 
PERATOR , 
THEN THIS SIGN 



OR DC, 
ING UPON WHICH 
CRO[INDEX]»CONTAINS 

S ORDERED FROM 
0, EACH MACRO 

ADDR" CONTAINS THE 
L "GENERATE" IS 
FROM MACROTTYPET 
THEN"ADDR" IS 
SYLLABLE WITH 

IFIES A SYNTAX 



RATE.L'LU 



START 



INTEGER TCLASS, INDEX, ADDR.JJ 

TCLASS «- ELCLASS ; 

IF STEPI i ASSIGNOR THEN BEGIN ERR(25l)J GO TO EXIT END! 

IE TCLASS = LOCLID ThEN 

begin 

XMARK(ASSIGNREF)J ssiio- 

IF SiV>STEPI OR ELCLASS>TALLYV THEN GO To LI 
INDEX «• 32 + ELCLASS-SIVJ 
ADDR * ELBAT[I-?J, ADDRESS? 

GO TO generate; 
end; 

IF TCLASS s STEPI THfN 
BEGIN 
IF STFPI * ADDOP OR STEPI* LITNO AND ELCLASS * LOCLID THEN 



16272000 T 

16273000 T 

16274000 T 

16275000 T 

16276000 T 

16277000 T 

16278000 T 

16279000 T 

16280000 T 

16281000 T 

16282000 T 

16283000 T 

16284000 T 

16285000 T 

16286000 T 

16287000 T 

16288000 T 

16289000 T 

16290000 T 

16291000 T 

16?92000 T 

16293000 T 

16294000 T 

16295000 T 

16296000 T 

16297000 T 

16298000 T 

16299000 T 

16300000 T 

16301000 T 

16302000 T 

16303000 T 

16304000 T 

16305000 T 

16306000 T 

16307000 T 

16308000 T 

16309000 T 

16310000 T 

16311000 T 

16312000 T 

16313000 T 
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16314000 T 

16315000 T 

16316000 T 

16317000 T 

16318000 T 

16318500 C 

16319000 T 

16320000 T 

16321000 T 

16322000 T 

16323000 T 

16324000 T 

16325000 T 

16326000 T 
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00001 
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00001 
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soooo; 
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108 
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SOOOO! 
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*** 1 
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SOOOO! 


116 


J00008 


116 


JOOOOl 


116 


80003! 


116 


S0004! 


116 


S0004! 


116 


S0009! 


116 


(0011! 


116 


80013! 


116 


!00l5« 
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10016! 


116 


50016! 


116 


80017! 


116 
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C,0 TO L; 

INDEX <- TCLASS-SIV 

+REAUCELBATT I-13.ADDRESSaSUB) 
+ REAU(EUCLASS =L0CLID) x 81 

END 



x 4 



ELSE 



BEGIN 

INDEX *■ TCLASS -Si V 

+ ( IF ELCLaSS = LOCLID THEN 16 ELSE 

IF ELCLASS s LOCV THEN 20 ELSE 

IF ELCLASS = SCV THEN 24 ELSE 

IF ELCLASS= DCV THEN 28 ELSE 25)5 
IF ELCLASS - LOcV THEN 

IF STEPl * LOCLID THEN GO TO LJ 
IF ELCLASS = LITNO AND TCLASS - TALLYV THEN 

BEGIN EMlTcCELBATtn. ADDRESS, SEC);G0 TO E X I T ENDJ 
ENO 5 

addr «■ el8at[ i] .address; 
generate: 

if macr0[index]= then 
Lj begin errc25o);go to exit end? 

J «- 65 TCLASS <-0 ; 
Ll! M0VECHARACTERS(2,MACR0[INDfX]» J«-J~2*TCLA5S,6 )5 

if tclass^o then 

begin 

EMlTCdF TCLASS>64 ThfN ADDR ELSE 0, TCLASS); 
GO TO Ll 

end; 
expend indexs j 

commfnt dss compiles destination stream statements, 

DS* L!T»STRtNG" IS HANDLED AS A SPECIAL CASE BECAUE THE 
STRING MUST BE SCANED FROM RIGHT TO LEFT , REPEATEDLY IF 
NECESSARY, AND EMITTED TO THE PROGRAM STREAM, IN 
ALL OTHER CASES, THE ElBAT WORD CONTAINS THE OPERATOR IN 
THE OPCODE FIELD J 
PROCEDURE DSS? 
BFGIN 
INTEGER ADDR,J»K,L,T} 

LABEL EXIT, LIS 
DEFINE 0PCODE=[27;6]#; 

IF STEPI * ASSJGNOP THEN BEGIN ERR(25j); GO TO EXIT END; 
IF STEPI = LOCLID THEN 
BEGIN 

emiTc(eLbaT[i j.addRess.cRF); 

ADDR*- 0J 

if stfPi = litv Then go to li 

END 

else if elclass= liTno then 

BEGIN 

ADDR * ELBATr HEADDRESS; STEPlT ; 

END 
ELSE ADDR «• 1 J 

IF = "4FILL0" THEN EMlTCf ADDR, 10) ELSE %E 

IF ELCLASS - TRNSFER ThEN FM I TC C ADDR , ELBAT [ I ] , OPCODE ) 
FLSE 
IF ELCLASS = LlTV THEN 
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1750006 


1 


16373000 


T 
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BEGIN 

FMlTCf ADDR.TRP) 8 

IF stepi*str n gcon then 

BEGIN ERR(?55)?Go TO EXIT END; 
IF ADDR MOD 2 * THEN 
BEGIN 
EMlT(ACCUMrJ] f [l8J6]); J <- i ; 

end ; 

FOR K <-J + 2 STEP 2 UNTIL ADDR DO 
BEGIN 

FOR L *6»7 DO 

M0VECHARACTERSC1,ACCUM[1J,2+(IF J*J+l>COUNT THEN J*l 

FLSE J)»T,L ); 
EMlT(T); 

END FND 

else 

Lis ERRC250); 
exitsend DSS j 

COMMENT SKIPS cOMPjLES ThF SKIP BIT STATEMENT, 

if The Repeat index is a localid then a crf is emitted, 
a bss or bsd is then emitted for skip source bits fsb) 
or skip destination bits (db) respectively j 
procedure skips ; 

BEGIN 
REAL ADDR; 

IF STEPI = LOCLID THEN 

BEGIN 

EMIl'C(ELBAT[n,ADDRESS»CRF); ADDR«-0; STEPIT; 

END 
ELSF IF ELCLASS = LITNO THfN 

BEGIN 

ADDR* ELBATCT3. ADDRESS? STEPIT 

END 
ELSE ADDR «- 1 J 

IF ELCLASS = SBV THEN EMI TCf AQDR»BSS) 
ELSE 

IF ELCLASS =DBV THEN EM I Tc C ADDR, BSD ) 
ELSE ERRC?50)J 
END SKIPS ; 

COMMENT JUMPS COMPILES JUMP OUT AND JUMP OUT TO STATEMENTS, 

JUMP OUT TO STATEMENTS CAUSE JUMP LEVEL TO BE SET TO 
THE NUMBER OF LFVELS SPECIFIED. THEN THIS NUMBER OF 

jns are emitted and gotos is called to compile the 
jump instruction. 

simple jump outs are handled by emitting one jns, entering 
a pseudo stlabid in info and setting elbatc i 3 such that 
the gotos procedure will perform the action OF SETTING 

UP THF LINKS FOR LATER FIX UPS. THE NEST STATEMENT CAUSES 
ThfSe FIX UPSCIF FMITTING Of JUMP INSTRUCTIONS) BY CALLING 
GO TOS WHEN THE RIGHT PAREN IS ENCOUNTERED, J 
PROCEDURE JUMPS; 

BFGIN 

JUMPLEVEL4-1 ; 

IF STEPI^DECLARaToRS THEN IF ACCUM[ j ] *»30UTOO" THEN 
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16382000 
16383000 
16384000 
16384500 
16385000 
16386000 
16387000 
16388000 
16389000 
16390000 
16391000 
16392000 
16393000 
16394000 
16395000 
16396000 
16397000 
16398000 

52 LONG, 
16399000 T 
16400000 
16401000 
16402000 
16403000 
16404000 
16405000 
OF SFGMFNT 
16406000 
16407000 
16408000 
16409000 
16410000 
16411000 
16412000 
16413000 
164J4000 
16415000 
1641 6000 
16417000 
16418000 
16419000 
18 LONG, 



16420000 
16421000 
16422000 
16423000 
16424000 
16425000 
16426000 
16427000 
16428000 
16429000 
16430000 
16431000 
16432000 
16433000 
16434000 



0117I0021J2 
Oll7:002i:3 
011710022*1 
0H7J0023S3 
0117:0025:3 
01 17100261 1 
0117:002712 
0117J0029:3 
01 17:002913 
0117«0033}3 
0117*003383 
0117J0038:0 
0117:0041:3 
0117800448 1 
0H7;0045J3 
0117:0046:0 
0117:0046:0 
0117:0047:3 
NEXT SEG 108 
0108:0000:0 
0108«0000:0 
0i08.'0000:0 
Oi08:0000:o 
0108:0000:0 
0105:0000:0 
0108:0000:0 

0118:0000:0 

0118.'000U2 

0118:0001:3 

01l8?0004:i 

0118:0004:1 
0118:0005:3 
0118:0006:0 
0118:0007:3 
01188000880 
01 188000983 
0118:001182 
0U8:00li:3 
0118J001480 
0H8?O0l5:3 
NEXT SEG 108 
O108JO00080 
0108J000080 
01088000080 
01085000080 
01088000080 
01088000080 
01088000080 
O1O88OO0O80 
01088000080 
O108SO0OO80 
O1O88O00O80 
01088000080 
01088000080 
01088000080 
O1088000183 
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IF STFPI = 
ELSE BEGIN 

IF ELCLASS/ 

[3 r p T M 

COMMENT SjMPLF JUMP 
IF JOlNFO - 
BEGIN 
JOlNFO 



r n FLAG(26l); 

uiTno then jumplevel* elbath j. address 



TOV AND FLCLASS/ STLABlD THEN 

out statement; 
o Then 



END. 
FOR 



NfXTJNfO J 

PUTNBUMP(5TACKHEAD[0J,LINKS(STLABIDX2+1) 

[2:40:8]«2[?7:/j0;8 ] ) ; 

PUTNBUMPfO&CjOlNFO-LASTlNFO )[ 4540583)5 
PUTNBUMP CO); 

LASTlNFO «• JOlNFO; 

fnd; 

ELBATfl* I-n*- TAKEf J0lNF0)&J0lNF0t35l35M3]; 

end; i«-i-i ; 



step 1 until jumplevel do 
jns); 



6T1* 1 

EMITC 

gotos; 

fnd jumps! 

COMMENT STRFAMSTMT ENvOK F S THE APPROPRiATF PROCEDURE TO HANDLE 

THE VARIOUS AND SUNDRY STREAM PROCEDURE STATEMENTS 

THE STATEMENTS aRf BRqKEN DOWN AS FOLLOWS? 



IDENTIFIED BY 

END 

SEMICOLON 

) 

IF 

GO 

RELEASE 
BFGIN 

S|.DI»C!»TaLLY»LOCALID 

ds 

SKIP 
JUMP 
LABELID 
LITERAL NO,»LOCALID( 

UPON exiting, streamstmt 
the semicolon »FND OR ) 



PROCEDURE ENVOKED 
GO TO FINI 
FINI 
FINI 



GO TO 
GO TO 
IFS 
GOTOS 
RELEASES 

COMPOUNDTAIL 
INDEXS 

DSS 

SKIPS 

JUMPS 

LABELS 

NESTS 
ASSURES THAT "I" POINTS 
IN SYNTACICALLY CORRECT 



TO 

programs; 



START: 



LABEL L,LJ.L2,L3,L4,L5»L6,L7,L8,L9,L10,EXIT,FINI,START; 
SWITCH TYPF «• FINI, L, FINI. L3»L / I»L5,L6, L7»L7,L7,L7, L8»L9,L10; 
GO TO TYPEC ELCLASS-ENDV+1J; 

if elcLass= rtp a Rfn Then go to fiNi ; 
if elclass* stlabio Then go to L2 ; 



IF 



IF 



ir 



I.: 
LI 5 

L?5 
1.3! 

1.4 » 



ELCLASS <IDMAX aNd EULaSS*LOcL I D THEN BEGIN 

declarelabel; go to 1,2; end; 
elclass = lltno or elclass = loclid and tableci + d 

= LFTPAREN thfn GO to li; 
ELCLASS = LOCLID THEN GO TO [J i 
ERR( 250 )? GO TO FlNy ; 

nests; go to exit; 

labels; go to start; 

ifS; go to finu 

gotos; go to exit; 
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GO TO F IN I 



i.e: 1*1 + 1 i compoundtail; 

1,7' INDEXS; GO TO EXIT; 

L.81 dss; go to exit; 

i.9> skips; go to exit; 

i,io: jumps? go to exit; 

e:x t t: stepit; 

finis end streamstmt; 



MOVEf 1» T*CODE(0)>; 

TiMri * tjmeci); program; 

ENnOFTTAULf 
IF fXREF OR DEFINING. rl' U) AND XLUn > THEN 

BEGIN DEFINE LSS= <# , qTR = ># , NFO= ?'#.LEQ = <#; 



DEFINF XREFINF0[ INDEX] = 



CF = [33»15J#» 
FF = C18M5]*# 
NEWIDC INDEX] = 



INFOCf CINDEX),CF DIV 
f(INDEX).CF DIV 



2),T33I7J» 

2),LINKC]#. 



TlMlNGSrO«2»0»3]» 
DURE SAVETIMESC d; 
UE If INTEGER II 



CIF BOOLEAN(INDEX) THEN XREF I NFO[ I NDEX ] 
ELSE XREFINE0[INDFX],CF)#; 



ARRAY 
PROCE 

VAL 
BEGIN 

INTEGER j; 



for j 8* i step i until 3 do 

TlMlNGSCIfJ] := TlMEcJ)? 
ENn« 

PROCFDURE UPDATETIMESd ); 

VALUE I J INTFGER 15 
BEGIN 

TNTFGER JJ 

FOR J 5= I STEP 1 UNTIL 3 DO 

T|MiNfiSCi,J] := TiMEfJ) - T IM jNgS[ I * J] ; 

ENnJ 

closf(card»Relfasf)5 
closfctape.Relfase)? 

lockcnfwtaPe^J 

WRlTFCLlNFrPAGFDJ 

savettmescO); % SAVE ttMfs for start of identifier sort. 

FOR XRFFPTlaXREFPT STEP 1 UNTIL 29 DO XREFAY?[XREFPT ] 5 = 1000000 
WRlTEfDSK2t30»XRFFAY2[*]); 

totalno 5= xlun? % remember number of identifiers. 
- .. xrefpt«.xlun*o; 

FOR I S= STEP 1 UNTIL 8191 Do 
pUKOt 1)1 

-BEGIN 
BOOLEAN PROCEDURE INPUTl(A); 

ARRAY A[Oj; 
BEGIN 

Label l.eof; 
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XDFB 
*DFB 
XDFB 



6488000 
6489000 
6/490000 
6491000 
6492000 
6493000 
6494000 
6495000 
74 LONG* 



6495100 
6495200 
649521 
6495300 
7002000 
SEGMENT 
7002005 
7002006 
7002007 
7002008 
7002009 
7002010 
7002012 
7002015 
7002020 
7002025 
7002030 
SEGMENT 
7002035 
7002040 
7002045 

8 LONG. 
7002050 C 
7002055 
7002060 
7002065 
SEGMENT 
7002070 

7002075 
7002080 

10 LONG* 
7002490 C 
7002500 
7002510 
7002520 
7002525 
7003000 
7004000 
7004500 
7004600 
7004700 
7004710 
7005000 
7006000 
SFGMENT 
7007000 
7008000 
7009000 



T 
T 

P 
P 
C 

** 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

** 

c 
c 
c 



c 
c 
c 

** 

c 
c 
c 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

** 

c 
c 
c 



0108 
0108 
0108 
0108 
0108 
0108 
0108 
0108 

NEXT 
0003 
0003 
0003 
0003 
0003 

***** 
0119 
0119 
0U9 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 

***** 

0120 
0120 
0120 

NEXT 
0119 
0119 
0119 
0119 

***** 

0121 
0121 
0121 

NEXT 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 
0119 

***** 
0122 
0122 
0122 



8006582 

»0065«2 

8006782 

S006982 

8007080 

8 00718 2 

8007280 

800728 1 

SEG 3 

8063680 

8064182 

8064281 

3064382 

8064583 
*** n9 

8000080 

8 0000 8 

8000080 

8000080 

8000080 

8000080 

8000080 

8000281 

8000281 

8000281 

8000231 

*** 120 

8000080 

8000182 

3000533 

SEG 119 

8000281 

8000281 

800028 1 

3000281 

*** 121 

8000030 

8000182 

8000782 

SEG 119 

800028 1 

J 0004 * 1 

8000630 

5000830 

1001280 

8001231 

8001733 

8002133 

800228 1 

8002333 

8002680 

3002932 

8002932 

*** 122 

3000080 

800008 

8000030 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
n 



o 



V. 



I O 

o 
o 

o 

■-Q 

P 

to 

n 

O 

o 

o 
o 
o 
o 
o 
o 



o 
o 

o 



% UPDATE TIMES 
XlUNJ % NUMBER 



THEN 

FF 5 = XLUN 



5 = XLUN + 1 



RFADCDSK1.10,At*3HE0F]J 
GO TO l; 

EOF! iNPUTIJbTRUE; 
REWlNOCDSKt )? 
L; 

end; 

PROCEDURE OUTPUTt C B»A); 
VALUE 13; 
BOOLEAN B; 
ARRAY ArOlJ 

REG IN 

IF B THEN 

BEGIN 

rewindcdskd; 
updaTetimes C 0); 

TIMINQS[0»0] S = 
END 
ELSE 
BEGIN 
IF B00LEAN(A[8]) 

XREFlNFOrAC83] 
ELSE 

XREFlNFOrAmj.CF 2= XLUN 5 = XLUN + U 
AC8J.IDN0F 5 = XL.UN5 
WRtTE(DSKl,lO f Ar*3); 

end; 
end; 
poolfan stream procedure c0mps1ca»b)j 

BFGIN 

s.p=a; 
di :=b; 

IF 63 Sc < DC 

TALLY 8 = 1 
ELSE 

BEGIN 

si != a; 
di s= b; 

IF 63 SC = 
TALLY := 

end; 
compsi:=tally; 
end; 
stream procedure 

BEGIN 

dp=a; 

ds:=8 lit M 9»; 

si ssa; 

DSle 7 wos; 

ds j = 

end; 

BOOLEAN 



FOR IDENTIFIER 
OF IDENTIFIERS 



Then 



DC 
?! 



THEN 



hvsj ca); 



8 LIT 3"777777777»; % ID. NO, AND SEG.NO, FIELDS 



procedure comPica»bj; 

ARRAY A»BrO]; 

IF REALCCOMPi :=COMPSl(A»B)) = 2 THEN 
C.OMP1 := Ar8],lDN0F < Bt8],lDN0FJ 
PROCEDURE HViCA); 

ARRAY ACO]; 



* IDS EOUAi 



START 


OF SEGMENT 


********** 123 


L 


%DFB 


17010000 


C 


012350000:0 




SDFB 


170J 1000 


c 


0123*0005*2 




*DFB 


170J2000 


c 


Ol23J0005t3 


L 


XDFB 


17013000 


c 


012350006! 1 




xdfb 


17014000 


c 


0123S0008J1 


C 


*DFB 


170J5000 


c 


01235000952 


123 


IS 14 LONG* 


NEXT SEG 122 




XDFB 


17016000 


c 


01225000050 




3!DFB 


17017000 


c 


01225000050 


L 


XDFB 


17018000 


c 


01225000050 




XDFB 


17019000 


c 


01225000050 


c 


XDFB 


17020000 


c 


012250000:0 


sdfb 


17021000 


c 


01225000050 




mo- 


17022000 


c 


01225000050 


/■""" 


XI 10- 


17022100 


c 


01225000051 




SORT, 


17022200 


c 


01225000251 




SORTED, 


17022300 


c 


01225000352 




xno- 


17022400 


c 


01225000552 


L 


XDFB 


17023000 


c 


01225000552 




XDFB 


17024000 


c 


01225000552 




sti io- 


17025000 


c 


01225000553 


Q 


35110- 


17025100 


c 


01225000650 




3:110- 


17025200 


c 


012280012S1 




XI 10- 


17025300 


c 


01225001480 


c 


XI 10- 


17025400 


c 


01228002153 




XDFB 


17026000 


c 


01225002353 




XDFB 


17027000 


c 


0122J002850 


c 


XDFB 


17028000 


c 


01225002880 




XDFB 


17029000 


c 


01225002850 




XDFB 


17030000 


c 


01225002850 


c 


XDFB 


17031000 


c 


01225002952 




XDFB 


17032000 


c 


01225002952 


.■■*— \ 


XI 10- 


17033000 


c 


01225002983 


c 


XI 10- 


17033100 


c 


01225003050 




XI 10- 


17033200 


c 


01225003050 




XllO- 


17033300 


c 


01225003051 


c 


X110- 


17033400 


c 


01225003051 




xt 10- 


17033500 


c 


012250030: 1 


r-~ S 


X110- 


17033600 


c 


0122S003152 





XI 10- 


17033700 


c 


012250031*3 




xno- 


17033800 


c 


01225003153 




X0F8 


17034000 


c 


01225003153 





XDFB 


17035000 


c 


01225003250 




XDFB 


17036000 


c 


012280033S2 




XDFB 


17037000 


c 


01225003352 





XDFB 


17038000 


c 


01225003352 




XDFB 


17039000 


c 


01225003352 




XDFB 


17040000 


c 


01228003451 





XDFB 


17041000 


c 


012250034: 1 




55110- 


17041100 


c 


01225003552 




XDFB 


17042000 


c 


01225003650 





XDFB 


17042100 


c 


01225003651 




XDFB 


17042200 


c 


01225003651 




, X110- 


17042300 


c 


01225003651 





XI 10- 


17042350 


c 


01225004010 




XDF8 


170 4 2 4 00 


c 


01225004582 





2SDFB 


17042500 


c 


01228004552 



o 



o 
o 
o 
o 
-o 
io 
^o 
■o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



HVS1 CA)J 

x i , u n : = o ; 

RfWlNDtDSKl )) 

S0RT(01ITPUT1»INPUT1»0»HV1»C0MP1»10.IF TOTALNO < 1000 THEN 
7000 ELSE 10000); 



END; 



BEGIN 
ARRAY lDTYPEC0»(IDMAX+4)x4-lJ? 

STREAM PROrFDURE SETUPHE AD I NGC S * D » SEG » SEQNO, FWDTOG* LBLTOG, 

FWDSEQNO,TYPE»OWNTOG»PARAMTOGf 
VALTOG)? 
VALUE SEG»SEQN0»FWDT0G,LBLT0r,pFNDSEQNO,0WNTOG.PARAMT0Gi 
VALTOG) 
BEfilN 

SI := SJ 
ni »■ D> 
63 CTF Sc = " " THEN JUMP OUT ELSE DS J = CHR)J 

ns i= 6 lit » -- »i 

OWNTOG CDS j = 4 LIT "OWN »)J 

SI ! = TYPE? 

32 f IF SC = "." THEN JUMP OUT ELSE DS := CHR)J 

PARAMTOG (DS ! = 6 LIT » -- ") 

DS i = 4 LIT "NAME"; 

valtog cdi != di - 4; DS := 5 LIT "VALUE"); 

DS *= 10 LIT " PARAMETER"); 
DS :~ 18 LIT " -- DECLARED AT "; 
SI i~ LOG SEQNO! 
DS := 6 dec; 

fwdtog cds is M lit " -- forward at "; 

si j= loc fwdsfQno; 

OS » = 8 deo; 

LBLT0G CDS 8= 16 LIT " -- OCCURS AT "J 

sj := loc fwdseqno; 

DS 5= B DEC); 

ENn. of setuphfading; 

STREAM PROCEDURE ADDASEONO ( SEQNO, N» STARS , D ) I 

VALUE SEQNO,N. STARS; 
BFRIN 

DI i- D'> 

Dl *- DI + 8; 

N CDI := DI + 10); 

STARScDI * = DI " 1* DS ;= L IT "*"); 

si := loc segno; 
ds := 8 dec; 

pS !? LIT " "5 

STARS C D I S= DI - l; DS is L I T «*»)»• 

end; 

stream procedure blanket(d); 

BERlN 

ni ;«= d; 

nS : = 8 lit " "; 

SI l» DI 

ns 1= 16 wds; 

ENn OF BLANKET; 



xdfb 


XDFB 


XDFB 


XllO- 


xtio- 


XDFB 


XDFB 


X112- 


%\ 


10- 


Xt 


10- 


%\ 


10- 


XI 


10- 


XI 


10- 


XI 


lO- 


XI 


10- 


XI 


10- 


XI 


to- 


XI 


10- 


XI 


10- 


XI 


1 0- 


XI 


1 0- 


XI 


10- 


XI 


to- 


X1 


10* 


XI 


1 0- 


XI 


10- 


XI 


10- 


XI 


10- 


XI 


10- 


XI 


10- 


XI 


10- 


XI 


10- 


XI 


10- 


551 


10- 


XI 


10- 


XI 


10- 


XI 


10- 


XI 


10" 


XI 


10- 


XI 


10- 


XI 


10- 


XI 


10- 


XI 


10- 


XI 


1 0- 


XI 


10- 


%\ 


10- 


XI 


1 0- 


XI 


10- 


XI 


10- 


XI 


10- 


XI 


10- 


XI 


10- 


%\ 


10- 


%\ 


10- 


XI 


10- 



122 IS 



START OF 



17042600 


C 


01 


22 ! 


0045! 


2 


17043000 


c 


05 


.22' 


0047! 


2 


17044000 


c 


0] 


122 


0048! 


1 


17045000 


c 


01 


.221 


0050! 


1 


17045100 


c 


01 


,22' 


0070! 


1 


17046000 


c 


01 


.22" 


0072! 


1 


79 LONC 


7» 


NE> 


(T J 


;eg 1 


19 


17047000 


c 


01 


.19' 


0031! 


2 


17047100 


c 


01 


19' 


0031! 


2 


SEGMENT 


****=! 


***•■ 


H** 1 


24 


17047200 


c 


01 


124 


0005! 


2 


17047300 


c 


01 


24' 


0005! 


2 


17047350 


c 


0] 


24 


0005! 


2 


17047400 


c 


01 


[24* 


0005! 


2 


17047450 


c 


01 


124 


0005! 


2 


17047500 


c 


0! 


124 


!0005 


2 


17047700 


c 


01 


24 


0006! 





17047800 


c 


01 


124 


0006! 





17047900 


c 


01 


124 


10006! 


1 


17048000 


c 


01 


.24 


0009! 


2 


170481.00 


c 


01 


.24 


OOlO! 





17049300 


c 


01 


24 


0012) 





17049400 


c 


01 


.24 


0012! 





17049410 


c 


01 


24 


00151 


2 


17049420 


c 


01 


124 


0017! 


2 


17049430 


c 


01 


124 


0017! 


3 


17049440 


c 


0] 


124 


(00201 





17049500 


c 


o- 


124 


(0022 





17050400 


c 


0! 


124 


10024' 


1 


17050500 


c 


0] 


124 


10024 


1 


17050600 


c 


0! 


124 


i0025 


2 


17050700 


c 


0! 


124 


00281 


1 


17050800 


c 


01 


124 


'0028 


1 


17050900 


c 


0! 


124 


10029 


2 


17051000 


c 


0] 


124 


.0032' 


1 


17051100 


c 


01 


124 


10032 


1 


17051200 


c 


01 


24 


10033' 


2 


17051300 


c 


0: 


124 


10033 


3 


17051400 


c 


0' 


124 


10033 


3 


17051500 


c 


0! 


124 


10033 


3 


17051600 


c 


0! 


124 


10033 


3 


17051700 


c 


0' 


124 


(0034 





17051800 


c 


0. 


124 


10034 





17051900 


c 


01 


L24 


10034 


1 


17052000 


c 


0< 


124 


10036 





17052100 


c 





124 


{0038 





17052200 


c 


0' 


124 


10038 





17052300 


c 





124 


10038 


1 


17052400 


c 





124 


S0039 


12 


17052500 


c 





L24 


S0041 


• 2 


17052600 


c 





124 


10041 


12 


17052700 


c 





124 


10041 


12 


17052800 


c 





124 


10042 


10 


17052900 


c 





124 


10042 





17053000 


c 





124 


S0043 


13 


17053100 


c 





124 


10043 


3 


17053200 


c 





124 


10044 


10 



u 
o 
o 

o 
o 






c 



c 



(J 

c 
c 
c 

c 
c 
c 
c 
c 
c 

c 



u 



o 
o 
o 
o 



=o 



p 

,jo 

; o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



PROCEDURE PRrNTXREFSTAl ISTjCS; 
BEfilN 

SWITCH FORMAT STaTS |= 



(///, "CROSS REFERENCE STATISTICS", /, 

t e " ". /). 

("PHASE ONE - SORT", |6," IDENTIFIERS"), 

("PHASE TWO - SORT", 17," REFERENCES"), 

("phase three - print cross reference c»»i7»" lines)"), 

(X5»I4,"!",?H," ELAPSED TjME CMIN:SEC)"), 
(X5»I4#"1",2I1>" PROCESSOR 
CX5» I4,"5",?H,» I/O TjME" 



TIME"), 

»/); 



si 

si 

SI 



SI 

21 

si 
si 

SI 
SI 

si 



INTEGER |»J,«; 
WRITE(LlNE»STATSr03); 

for i s= o step i until ? do 

BEGIN 

WRlTEaiNF»STATSn + l]»TlMlNGStI#0]); 
FOR J ;= 1 STEP 1 UNTIL 3 DO 
BFGJN 

K := (TIMINGSTT' J] + 30) Dl V 60; X R 
WRITF(LINE»STATS[J+3],K DIV 60,(K5-K 

K M 

end; 
fnd; 

ENn PRINTXREFSTATJSTICS; 



OUND TO NEAREST 
MOD 60) DIV 10 
OD 10); 



si 

SI 
SI 

si 
si 

SI 

si 

SE 
tSl 

xi 
si 

SI 

SI 



NUMBER 
CALL OF 



OF REFERENCES SORT 
OUTPUT PROCEDURE, 



DFFINE REFCOUNT = T I Ml NGS [ J , OJ#J % 
BOOLEAN ElRSTTjME; % TRUE ON FIRST 
ARRAY PAYrO:i7]J 

REAL lastaddress; 

BOOLEAN PROCEDURE lNpUT2(A); 
ARRAY AfO]; 

BEGIN 

LABEL LiFOF; 

DEFINE I = LASTADDRESS*; 
IF XREFPT5sXREFPT+i=30 THEN 
BEGIN 

READ(DSK2,30,XREFAY2C*])CE0F]; 
XREFPT!=0; 

end; 

IF ( I »sXREFAY2rXRFFPT]).C2U27] GTR 99999999 THEN GO TO 

AfO] : B I & NEWlDr I,REFIDN0F3 REFIDNOF; 

RFFCOUNT 



10- 
10- 
10- 
10- 
10- 
10- 
10- 
CON 
10- 
10- 
10- 
10- 
10- 

FD. 



8s REFCOUNT 
GO TO L' 

EOF? INPUT2«sTRUE; 
BLANKFT(PAY); 
XREFAYirB] Is XREFPT 

fill idtypec*] with 

"UNKNOWN. 

"STREAM LABEL, 

"STREAM VARIABLE, 

"DEFINE. 

"LIST, 

"FORMAT. 



+ 1'" 



: = lasTaduress ; = o; 



o 



* 1 

S 2 

% 3 

% 4 

S 5 



SI 

X 
% 
% 
% 

XI 

% 
% 
% 
% 
% 

E 
1 
1 
% 
X 
% 
1 
1 
1 



SI 
SI 
SI 
XI 
SJ 



10- 17053300 C 
10- 17053400 C 
10- 17053500 C 

start of segment **** 
start of segment **** 

10- 17053600 C 
10- 17053700 C 
10- 17053800 C 
10- 17053900 C 
10- 17054000 C 
10- 17054100 C 
10- 17054200 C 
10- 17054300 C 
126 IS 87 LONG, 
17054400 C 
17054500 C 
17054600 C 
17054700 C 
1705^800 C 
17054900 C 
17055000 C 
17055010 C 
17055020 C 
1.7055025 C 
17055030 C 
17055100 C 
17055200 C 
125 IS 44 LONG* NE 
17069300 C 
17069400 C 
17069500 C 
17069600 C 
17070000 C 
17071000 C 
17072000 C 
17073000 C 
START OF SEGMENT **** 
17073100 C 
17074000 C 
17075000 C 
17076000 C 
17077000 C 
17078000 C 
17079000 C 
17080000 C 
17080100 C 
17081000 C 
17082000 C 
17083000 C 
17084000 C 
17084010 C 
17084020 C 

start of Segment **** 

10- 17084030 C 

10- 17084040 C 

10- 17084050 C 

10- 17084060 C 

10- 17084070 C 



DFB 
10- 
DFB 
DFB 
DFB 
DFB 

10- 

DFB 
DFB 
DFB 
DFB 
DFB 

of; 

1 0- 
10- 
DFB 
DFB 
DFB 
10- 
10- 
10- 










NE 

































124:0044:0 

124!0044!0 

124*0044:0 

****** J2b 

****** 126 

12650000;0 

J26:0000J0 

126J00OOJ0 

1265000080 

12680000S0 

126:000080 

12650000J0 

126:000050 

XT SEG 125 

1255000050 

12550000:0 

1255000450 

125»000552 

1255000552 

125:001552 

1255001680 

1255001650 

1255001851 

125S0030S1 

1255003651 

1255003851 

1255004152 

XT SEG 124 

1245004480 

12450044:0 

124 JO04480 

12450048:0 

124J004850 

1248004850 

1248004850 

1248004850 

****** 127 

1278000080 
1278000080 
1278000183 
1278000280 

1275000783 
1275000880 
1275000880 
1275001051 
1278002880 
1278003183 
1278003352 
1275003353 
1278003552 
1275003783 
127:0038:0 
****** 128 

12750039S2 
1275003952 
1275003952 
1275003982 
1275003952 



c 

c 



c 
c 

L 

c 



r 



L. 



o 



o 
o 
o 
o 
o 
o 
n 



o 



I I 



u 
o 

O 

:-0 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 



"SWITCH FORMAT. 


ii 


, X 


6 


"REAL SUBROUTINE. 


ii 


, % 


7 


"SUBROUTINE. 


it 


, % 


8 


"SWITCH LABEL. 


it 


• % 


9 


"PROCEDURE, 


it 


, % 


10 


"INTRINSIC, 


it 


. % 


n 


"STRFAM procedure. 


tt 


, X 


12 


"BOOLEAN STREAM PROCeDURf, 


it 


> If 


13 


"REAL STREAM PROCEDURE, 


tt 


, % 


14 


"INTFGER STREAM PROCEDURE. 


it 


. X 


15 


"INTEGER STREAM PROCeDURf. 


tt 


% 


16 


"BOOLEAN PROCEDURE; 


it 


, % 


17 


"REAL PROCEDURE. 


it 


, X 


18 


"INTFGER PROCEDURE. 


tt 


% 


19 


"INTFGER PROCEDURE. 


tt 


I X 


20 


"BOOLFAN. 


tt 


• X 


21 


"Real, 


it 


, % 


22 


"INTFGER. 


tt 


. X 


23 


"INTEGER. 


ft 


, % 


24 


"BOOLEAN ARRAY, 


tt 


. X 


25 


"REAL ARRAY, 


it 


, % 


26 


"INTEGER ARRAY. 


it 


% 


27 


"INTEGER ARRAY, 


it 


, X 


28 


it 


it 


* to 


29 


"NAME. 


tt 


, % 


30 


"INTEGER NAME. 


tt 


, % 


31 


"LABEL, 


tt 


. % 


32 


"FIELD, 


it 


: X 


33 


Lt 








END? 









(CLASS - 125) 



PROCEDURE 0UTPUT2fB»A)J 
VALUE BJ 
BOOLEAN B* 
ARRAY Af 01 ; 

begin define pr i nter = l i ne# j 

labfl e0f2. s k i p ; 

own boolean b2, fwdtog, lbltog* w a i t i ngforfwdref 8 
define match(a.b) = realc boolean{ a ) eqv boolean(b)) = 

Realcnot falSe)#; 

REAL I; 

DEFINE LINECOUNT a T r M t NGSr 2» 0] # J ?! NUMBER OF LINES PRINT 

OWN REAL FWDSEQNO; 

IF FIRSTTIME THEN % PRINT HEADINGS AND SAVE TIMINGS, 

BEGIN 

FIRSTTIME := FALSE; 
TIME1 ?= TIME(1){ 

DAT I me; 

updatetimescd; 

savftimesc2); x save tlmes for start of xref print. 

end; 
if not b2 then 

if b then x end of sort - list out Rest of seo. no, 
if xrefpt / o Then % we got some to list out 
begin 



xiio- 


17084080 


C 


0127J003952 




XI 1 o- 


17084090 


C 


0127*0039»2 


,''"■' 


X110- 


17084100 


C 


01271003912 


•^ 


XI 1 0- 


17084110 


c 


01271003912 




XllO- 


170B4120 


c 


0l27?0039«2 


c 


?110- 


17084130 


c 


OJ27»0039J2 


JS110" 


17084140 


c 


01278003982 




^1 10- 


17084150 


c 


012780039*2 


c 


xno- 


17084160 


c 


01271003912 


X 1 10- 


17084170 


c 


0127J0039J2 




xno- 


17084180 


c 


012710039*2 


r-, 


SB 1 1 0- 


17084182 


c 


01271003912 


v^ 


XllO- 


17084184 


c 


0127J003952 




X 1 1 o- 


17084186 


c 


0127:003952 


-•— - 


2110- 


17084188 


c 


01278003982 


u 


XI 10- 


17084190 


c 


01271003912 




2.1 10- 


17084200 


c 


01271003912 


,-— \ 


X110- 


17084210 


c 


01271003912 


c 


XllO- 


17084220 


c 


0127J0039S2 




XI 10- 


17084230 


c 


01271003912 


c 


Sl 10- 


17084240 


c 


01275003952 


xno- 


17084250 


c 


0127: 003982 




XI 10- 


17084260 


c 


01271003912 


^_ 


XI 10- 


17084270 


c 


01275003952 


u 


X110- 


17084280 


c 


012750039J2 


- - 


XI 10- 


17084290 


c 


01275003952 


.-—•, 


X112- 


17084300 


c 


01275003982 


L. 


XI 12- 


17084400 


c 


01275003952 




128 IS 


136 LONG. 


NEXT SEG 127 


c 


XDFB 


17085000 


c 


0127S003952 


XDFB 


17086000 


c 


01275004050 




127 IS 


45 LONG, 


NEXT SEG 124 


c 


XDFB 


17087000 


c 


01245004850 


XDFB 


17088000 


c 


0124500/4850 


- - - 


XDFB 


17089000 


c 


0124500^850 


,-- . 


XDFB 


17090000 


c 


01245004850 


u 


XDFB 


17091000 


c 


01245004850 




START OF 


SEGMENT 


********** 129 


/— v 


X110- 


17091100 


c 


01295000050 


u 


XllO- 


17091110 


c 


01295000050 




X 1 t o- 


17091115 


c 


01295000050 


—, 


XllO- 


17091116 


c 


01295000050 


c 


xito- 


17091120 


c 


01295000050 




ED. 


17091140 


c 


01295000050 


c 


XI 10- 


17091150 


c 


01295000080 


xno- 


17091155 


c 


01295000050 




XI 10- 


17091160 


c 


01298000081 


„, 


xno- 


17091162 


c 


012980001*2 


c 


XllO- 


17091165 


c 


01298000250 




XI 10- 


17091170 


c 


01298000382 


""*-\ 


XI 10- 


17091175 


c 


012'?8000353 


c 


X110- 


17091180 


c 


01295000451 




X 1 10- 


17091200 


c 


01295000582 


*-. 


X 1 1 o- 


17091210 


c 


01298000552 


c 


X110- 


17091300 


c 


01298000680 




XI 10- 


17091400 


c 


0129800068 1 


c 


XI 10- 


17091500 


c 


01298000880 



J 



V. 



o 

o 

o 

to 

b 

to 

to 

O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



WRITE(LINECDBL]»15#PAY[*J 
LlNECOUNT 8 = LlNECOUNT + 
END 
ELSE % NOTHING TO LIST OUT 
ELSE % NOT END OF SORT 

IF NOT MATCH(LASTADDRrSS,A[0] 

ArOJ.REFlDNOF 5 XR F FAY1[83 
IF ACO].TYPERFF s forwardre 

WAITINGFORFWDREF 8 = TRUE 
ELSE 

IF AC03»TYPEREF = LBLREF 
BEGIN 

LBLToG 8= TRUe; 
FWDSEONO :s A[03,SEQN 
END 
r | sr 

" 'iF AtOl.TYPEREF '- DECLR 

IF waitingforfwdref t 

BEGIN 

WAITINGFORFWDREF 

FWOTOo s= true; 

FWDSEONO s= ACO], 
END 
ELSE % T TS A NORMAL D 
BEGIN 

IF AC03.RFFIDNOF 
DO 

readcdskimo, 

UNTIL 

a[0],refidn0f 
if aco], refidnof 

go to skip; 
if xrefpt > o the 
begin 
if singlJog the 
write(line,15 

ELSE 

WRITE(LINE[DB 
LlNECOUNT ; = LI 
END 
ELSE 

IF NOT SINGLTOG 
WRITECLINE); 
XREFPT 5= 05 

blanKetcpaY[*j ); 
setupheadingcxre 

SEGNOF»AtOJ,SE 

FWDSEONO* IDTYPE 

XREFAYH9],CLAS 

FIELDID THEN 33 

RFALCI > BOUID 

RFALCCI > BOOiD 

(XRFFAYl[9],[9« 

EWDTOg ' = LRLTOG 

WRITE(U!NR.15#PAY 

LlNECOUNT J= LINE 

blankeT(PaY[*]); 

END 



); 



) AND ArO],RFFI 
.IDNOF THEN 
F THEN X 



THEM % 

of; 

EF THEN 

hen % this must 
:= false; 
seqnof; 

eclaration - no' 
> xrefay1[8] # idi 

XREFAY1C+]) CEOf 

< XREFAY1C8],! 

< XREFAY1C83. II 

N X THERE IS STt 

N 
•PAY[*3) 

L3»15»PAY[*])S 
NECOUNT + i; 

THEN 



FAYlC*]»PAYt*]p 

QNOF#FWDTOG»LBL" 

CCIF (I ;* 

S) > IDMAX THEN 

ELSE ELSE I) 
AND XREFAY1C9J. 

OR I = LOCLID) 
13))» XREFAY1C9: 
s= FALSE' 

t * ] ) ; 
count + i; 



X1 1.0- 


17091510 C 


XI 10- 


17091520 C 


XI 10- 


17091530 C 


* 1 1 — 


17091600 C 


XI 1.0- - 


17091700 C 


DNOF * AND 


17091800 C 


X1 1 o- 


17091900 C 


XI I o- 


17092000 C 


XllO- 


17092J00 C 


XI 1 0- 


17092200 C 


XI 10- 


17092300 C 


X 1 1 0- 


17092400 C 


XllO- 


17092500 C 


X110- 


17092600 C 


X1 10- 


17092700 C 


351 10- 


17092800 C 


XI 10- 


17092900 C 


BE IT X110- 


17093000 C 


xuo- 


17093100 C 


X110- 


17093200 C 


XllO- 


17093300 C 


Xt 10- 


17093400 C 


XllO- 


17093500 C 


T FORWARDXUO- 


17093600 C 


X1 1.0- 


17093700 C 


NOF THEN XllO- 


17093850 C 


XllO- 


17093900 C 


F23 XI 10- 


17093950 C 


XI 10- 


17094000 C 


dnof; xito- 


17094050 C 


DNOF THENX110- 


17094100 C 


XllO- 


17094150 C 


UFF TO PRINT 


17094200 C 


Xt 10- 


17094240 C 


XI 10- 


17094250 C 


XllO- 


17094300 C 


Xt 10- 


17094350 C 


xt 10- 


17094400 C 


X 1 1 0- 


17094410 C 


xtio- 


17094420 C 


X 11 o - 


17094450 C 


X 1 1 o- 


17094500 C 


XllO- 


17094550 c 


XI 10- 


17094600 C 


X110- 


17094650 C 


XREFAYIC83. 


17094700 C 


TOG* 8110- 


17094800 C 


XI 10- 


17094900 c 


IF I = X112- 


17095000 C 


x 43, X112- 


17095100 C 


[9823 a 1), 


17095300 C 


AND BOOLEAN 


17095310 C 


3. r 10: )3); 


17095320 C 


XllO- 


17095400 C 


XllO- 


17095500 C 


XI )0- 


17095510 C 


xno- 


17095550 C 


XI 10- 


17095600 C 






129S00088 





129 


50013S 





129 


!00l6» 





129 


800168 





129 


800168 





129 


800178 





129 


'00211 





129 


J00238 





129 


80025! 





129 


800?6! 





129 


80027* 





129 


100298 





129 


80029! 





129 


80030! 





129 


S0032' 





129 


J0032' 





129 


10032! 





129 


S0034! 





129 


10035! 





129 


10036! 





[29 


'0037! 





129 


(0038: 





129 


(0039! 





129 


0039! 





129 


0039! 


0< 


129 


0040! 





129 


'00428 





129 


'0043! 





129 


00478 


0! 


129 


0048! 


01 


129 


0051' 


0] 


L29 


0053? 


0) 


291 


0053! 


01 


29i 


0054! 


01 


129 


0055' 


01 


129! 


00558 


01 


1291 


0059! 


01 


1291 


0060: 


0] 


129 


0065! 


0] 


291 


0069! 


01 


291 


0069? 


0] 


,291 


00698 


Oj 


.291 


0070S 


01 


291 


00758 


01 


29i 


0076! 


01 


29 J 


00778 


01 


1291 


0079! 


01 


298 


0081' 


01 


29! 


0082' 


01 


.291 


0085! 


01 


298 


0088! 


01 


29! 


0091 ' 


Oj 


298 


0092' 


01 


298 


0095' 


01 


29i 


0097! 


01 


29! 


0101 : 


01 


29! 


0105' 


01 


29! 


0106! 



1 

2 

1 
1 
1 
2 
2 
3 
3 
1 
2 
2 
3 
1 
1 
1 
1 
1 
3 

2 

3 
3 
3 


1 
2 
2 

2 
2 
3 
1 
2 
3 
2 
1 
3 
2 
2 
2 
1 
2 

2 
2 
3 

2 
1 
2 
1 
2 
2 
3 
2 




c 
c 
c 
c 
c 
c 
c 
c 
c 



c 

c 



c 



c 



c 



c 
o 
o 
o 



v_ 



o 



u 
O 
-u 
to 
to 
O 
O 

o 
o 
o 



u 



o 

o 
o 
o 
o 
o 



THEN 



= 11 THEN 



1 



ELSE % 
FLSF % HIT 

EOF?! B2 
TF 
END 



not b then skip 
of output?; 



ELSE % |T MUST RE A NORMAL REFERENCE 
IF AC03.SEQNOF / LAST ADDRESS , SEONOF 
BEGIN 

ADDaSeQNO(A[0],SEQNOF»XREFPT»ACO],[5 

P A y [ * 3 )? 

IF (XREFPT ?= XREFPT + 1) 
BEGIN 

WRITE(LINE»15,PAY[*3){ 
LINECOUNT :s LlNECOUNT 
XREFPT i= 0; 
BLANKETCPAYf*])} 
END 
END 
ELSF X REFERENCE TO SAME SEQ. NO, 
THIS is A REFERENCE TO THE SAME SpQ. 
ENn Of IDENTIFIER FILE - JUST 
;= TRUE? % SO SORT CAN GO TO 

lastaodress != ArO]; 



XI 10- 

XllO- 

xno- 
513, 

y 1 10- 

XFULL 

XI 10- 

XI 10- 
X 11.0- 
XI 10- 

XllO- 
2110- 

XllO- 
SKIP IT XI 10- 
NO. - SKIP 
SKIP OVER REFERENCES 
NORMAL EOJ XllO- 

XllO- 
XllO- 



end; 



end; 



END 



PROCEDURE HV2CA); 
ARRAY A[0]l 

AtO] 5 = 3"777777777777777»; 
BOOLEAN PROCEDURE C0MP2CA>B); 
ARRAY A»B t 03 ; 

C0MP2 := IF AC03.REFIDN0F' 
TRUE 
ELSE 

IF AC0],RFFIDN 
IF A t ] . [ 1 » 4 

TRUE 
ELSE 

IF A[0].tl 
IF AtO]. 

TRUE 
ELSE 

IF ACO 
BOOL 
ELSE 
FALS 

ELSE 
FALSE 
ELSE 

false; 
savetjmes(i); % save tjmes for 

FlRSTTiME is TRUE; X LeT OUTPUT 
XREFPT:=29; REW I NDC DSK2) 8 
S0RT(0UTPUT2. I NPUT2* 0» hV2» C0MP2 

updateTimesc?); % update times f 
printxRefstatistics; 



X BIGGEST FLOATING PT f NO. 



< BCO].REFIDNOF THEN X DI 



OF = BCOJ.REFIDNOF THEN 
3 LSS Dt0].[ll4] THEN 



843 = BCOJ, [I 14] THEN 
SEQNOF < B[03, SEQNOF THEN 



3.SEQN0F = BCO], SEQNOF THE 
EAN(AC03.[5;i]) 



START OF REFERENCES SORT 
PROCEDURE KNOW ABOUT FIRS 

M»6000); 

OR PRINTING CROSS REFERENC 



END MAIM BLOCK, 



'«DFB 

XDFB 

X110- 

XDFB 

XDFB 

F IDS 

XltO- 

XI 10- 

XI 10- 

X110- 

xno- 

XI 1.0- 
XI 10- 
XI 10- 
XI 10- 
X110- 

NX110- 
XI 10- 
XI 10- 
XI 10- 
XI 10- 
XI 10- 
XI 10- 
XI 10- 
XI 10- 

T CAL 
SDFB 
XllO- 

EXllO- 

X110- 

XDFB 

XDFB 
X108- 

XDFB 



129 IS 



124 IS 
119 IS 



3 IS 



17095700 


C 


01298010610 


17095750 


C 


01291010610 


17095800 


C 


0129?0109!2 


17095900 


C 


01295010913 


17096000 


C 


0129 * 01 12 i 


17096100 


C 


0129; 01 1 3 » 2 


17096200 


C 


0129*0114: 1 


17096300 


C 


0129! 01151 2 


17096350 


C 


0l29:0li9»3 


17096400 


C 


0l29l0l23»2 


17096450 


C 


01295012410 


17096500 


C 


0129S012552 


17096550 


C 


0129:012552 


17096575 


C 


0129J0125J2 


17096600 


C 


01295012582 


17096700 


c 


01295012553 


17096800 


C 


01295012650 


17096850 


c 


01295012850 


17096900 


c 


01295013050 


135 LONGt 


NEXT SEG 124 


171 12000 


C 


01245004850 


17113000 


c 


0124 5004880 


171 14000 


c 


01245004880 


17H5000 


c 


0124S0052S0 


17116000 


c 


01245005250 


17117000 


c 


01245005280 


17H7100 


C 


01245005480 


17H7200 


c 


01245005552 


17H7300 


c 


01248005553 


171 17400 


c 


01248005783 


17117500 


c 


0124800605 1 


17H7600 


c 


01245006152 


171 17700 


c 


01245006153 


17117702 


c 


01245006480 


17H7704 


c 


0124500665 1 


171 17706 


c 


01248006783 


171 17708 


c 


01245006850 


17117710 


c 


01245007050 


17117712 


c 


01245007183 


17117714 


c 


0124(007210 


17117720 


c 


O12450072S1 


17H7730 


c 


01245007352 


17H7800 


c 


01245007352 


171 17900 


c 


01248007353 


17117910 


c 


01248007650 


17117920 


c 


01245007753 


171 18000 


c 


012480078: 1 


17H9000 


c 


01245008152 


17H9100 


c 


0124501025 l 


171 19200 


c 


01245010352 


17120000 


c 


01245010383 


108 LONG 


» 


NEXT SEG 119 


17121000 


c 


0U98003250 


36 LONG 


♦ 


NEXT SEG 3 


17121500 


c 


00038064752 


651 LONG 


» 


NEXT SEG 2 


17122000 


c 


00028003880 



c 



c 
c 
c 
c 
c 
c 
c 
c 
c 
o 
o 
o 
o 
o 
o 
o 
o 



u 



O ! 

o 
o 
o 

to 

- ; o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



NUMBER OF FRRORS DETECTfD = 0. COMPILATION TyME = 380 SECONDS, 

PRT StZe s 530J TOTAL SfGMENT SjZE * 84O8 WORDS) DlSK SIZE = SAO SEGSJ NO. PGM. SEGS 

ESTIMATED CORE STORAGE REQUIRED = ?6836 WORDS* 

ESTIMATED AUXILIARY MEMORY REQUIRED = WqRDS, 

NUMBER OF CARD-IMAGES PROCESSFD = 7848, 

LABEi, OOOOOOOOOLIME 00)77231? COMPILE ESP L/DIS|< ALGOL LIBRARY 



2 IS 
1 IS 

143 IS 



42 LONG* NEXT SEG 1 

2 LONG* NEXT SEG 

69 LONG. NEXT SEG 



- H3 



ALGOL /ESPOL 



C 



C 

c 
c 

c 

r-* 
^_ 

c 
c 
c 
c 
o 
o 
o 
o 
o 
o 
o 
o 
n 



<J 



o 
o 
o 
o 

-o 

10 

to 

"o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



LABEL OOOOOOOOOLINE OOi77?3 1? FXECUTE PAT C H/MER G E 



PATCH /MERGE 



c 
c 
c 
c 
c 
c 



c 



c 
c 
c 



c 



(J 

c 
o 

o 

o 
o 
u 

o 
o 

o 



u 



o 



o 



o 



o 

> 

p 
to 

to 

o 
o 
o 

o 
o 
o 
o 



o 
o 
o 

o 



? fxecute patch/merrf 



packft 

INPUT 

TIMf 

DATE 



?1 

26 

1303 



CARDS fPOM CRA 
FRIDAY, 08/19/77 



C 
C 

c 
c 



*** BURROUGHS B5700 DCMcP MARK XVl.0,73 AND iNTRyNSlCS MARK XVI. 0,00 *** 
#N0 MESSAGES TODAY 

? EXECUTE PATCh/MERGE 

? FILE CARD- PMCARI) 
? DATA PMCARD 

S!PATCH/MERGE= 1 BoJ 1303 n2/0ft/75 

cda in pmcard|patch/merge= 1 

prd002? out oh linejpatch/mfrge = 1 

DKa out seR masterf uoooooo;patch/merge= 1 

dKa in sfR patch fspol:Patch/Mjtrgf= i 

DKa out ser patchof uoooooo?patch/merge= 1 

dka rei patch espol.:Patch/mergf= i 

cda rfl pmcard:patch/merge= 1 



c 



L. 



c 



? fnd 



dka Rel patchdf uoooooojPatch/meRgf= 1 
pbdoo2? rfi. on. line ib09sPatch/mergf= \ 
dka Rel masteRf uoooooo»patch/meRgf= i 

PATCH/MFRGE- 1 FOJ 1304 

FOR PATCH/MERGF= 1! PROCESS= 53 SkcS, 10= 37 SFCS, 0LAY- 1 

pkt#oo?i removed 



c 
c 
c 
c 
c 
c 
c 
c 
c 

c 



LABEL OOOOOOOOOLtNF 1 7 ^ 2 3 1 ? FXECUTE PATCH/MERfiE 

BURROUGHS B-5700 PATCh/MERgE PROGRAM MARK XVI. 0,00 



PATCH /MERGE 



FRlDAYt 08/19/77, l J03 PM. 



^J 



o 



o 

o 

o 

to 

to 

jo 

to 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



********** 



INPUT 



********************************************************************************** 



$e>CARr> conflicts Listi mfrgf zip 
$, 18 PaTCHFS for fspol 



carp input is pmcarq 
patches/espol is not on disk 
patch /espol will be merged 



S*C0MPlt,E ESPOL/DISK ALGOL LIBRARY 
£* ALGOL STACK = 1000 

S*ALG0L FILE TAPE = SYMpOL/ESPOL DISK SERIAL 
.$*. FILE-LINF = LINE PRINT OR BACK DP 
S* DATA CARD 
S- ***** THIS LISTING SHOWS PATCHES IMPLEMENTED AT UCSC ***** 

STARE.. 

SSFT LISTA SINGLE FORMAT PRT XRfF 

SRFSET LIST PRT XREF FORMAT 



S#PATCH NUMBER 1 1 FOR ESPOL CONTAINS 2 CARDS 



"$#~PATcH NUMrfR 102 F 0R fSPOL CONTAINS 1 CARD 



101 



IF T - INFOCGTl* GT?3 THeN REGIN 02877010 P 101 

t:= o; go to completf end; 02877020 p 101 

sithis patch fLfMinatfs a compiler loop caused when a formal Parameter p 101 

$1 iN A PROcFDI'RF DFCLaRATION IS NOT INDICATED |N THE SPECIFICATION P 101 

"SI LIST. " P 101 

s J ********************************************************************** p 101 



102 



IF BUP * BUP:=BUP" TflKpfRUP + U.PURPT THEN 14088000 P 102 

$: THIS PATCH ELIMINATES A COMPILER LOOP CAUSED WHEN THE FORMAL P 102 

$: PARAMETER IN A PROCEDURE DECLARATION IS FOLLOWED BY A COMMA. P 102 

,$t ********************************************************************** P 1° 2 



O 

O 

o 

o 

c 



$#PATCH NUMRER 103 FOR rSPOL CONTAINS 2 CARDS 



103 



c 
c 

c 
c 
c 
c 



/ \ 



'J 



v.. 



o 

o 

o 

to 

to 

o 

to 

to 

o 
o 

o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



FOUND? 02315000 P 103 

if optnx +i>oparSi?f. then flag(602) else % too many user options 02316000 p 103 

Sj THIS PATCH CORRECTS AN INVALID IkDEX CONDITION CAUSED WHEN TOO MANY P 103 

$.1 USFR OPTIONS HAVE BEEN SPECIFIED. p t 03 

SJ***************** ************************* **************************** P 1 3 



$#.PATCH NUMBER 10.4 FOR ESPOl CONTAINS 4 CARDS 

FLAG (120)1 
_FCRt - CLCR!-MKABS(CBUFFC9] ))"9J 

IF LISTER THEN PRINTCARD; 
FCRj= (LCRj=MKABS(TBUFF[g]))"9 ENDj 

SJTHIS PATCH CORRECTS A PROBLEM WHERE A PATCH CARD IS LOST WHEN BEGIN 
SSEND PAIRS ARE NOT MATnHFD AND PATCH CARD SEQUENCE NUMBERS ARF GREATER 
SjTHAN THE SEQUENCE NUMrER OF THE "END, "CARD IN THE SOURCE FILE, 
S! ******************************************************** ************** 



07025000 
07025010 
07025020 
07025030 



S# PATCH NUMBER 105 FOR ESPOL CONTAINS 11 CARDS 

LABEL ENDREADTAPE* FOFT; 

READ fTAPE. 10, TBUFF[*i)rEOFT]; 

LCR:=MKABSf TBUFF[9])J 

Go To EmDreadtape; 

EoFTj 

DEFlNFARRAY[25]}="ND;ENn."* "E"E 1 j 43 j 5 3 ; 

DEFIN|taRRaY[34]:s»9999" R "9999" [ 1 : 25 ; 23 ] ; 

TLrR:= MK A R.s(r>FFlNEARRAYt3«]); 

PUTSFQNO (nFF!N(r A RR A Y[33],TLcR-8); 

TURNONStOPLtgHTC'X'S TLrR-8) J 

eNoReadtaPf! 

.HThTS PATCm CORRECTS AN EOF NO LABpL FNC0uNTf«FD 
S* "END"" CARD IS PATCHFD OVfR AND THE PATCH DFCK 
SLUMBERS GREATfR ThAN THF SfQUfNCf NUMBER OF T H E 
S J SOURCE FILE, 

$J************** ******************* ***************** ************* ******* 



when the source 
contains card sequence 
"fnd." card in the 



02201510 
02201750 
02202000 
02202010 
02202020 
02202030 
02202040 
02202050 
02202060 
02202070 
02202080 



£*PaTcH NuMreR 106 FOR rSPOL CONTAINS 2 CARDS, 



200 
611 



$! 
St 
S.I 

St 



thfN 

THEN 



I 



I 



:= I/OJ 

!- I/O? 



% 

% 



IF FRRNLlM = 

IF ERRNUM = 
DATE 6/27/75 
BY MWG - MSA CENTRAL! 

THIS pATCH CAUSES ESpoi, To ABORT WITH A DIVIDE BY ZER ERR R 
THF ERRORS "SEGMENT TOO LARGE" AmD "ERROR LIMIT EXCEEDED". 



segment too large, 
errmax exceeded. 



for 



05107100 
05107200 
99990000 
99990100 
99990200 
99990300 



$#P.ATCH NuMrfR 107 FOR rS POL CONTAINS 12 CaNDR 



104 

104 
104 
104 
104 
104 
104 
104 
104 



105 

105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 
105 



00000000 P 106 



106 
106 
106 
106 

106 
106 



00000000 P 107 



L- 



C 

c 
c 
c 

c 
c 
c 



c 
c 
c 

o 

Q 

o 
o 
o 

c 



u 



o 
o 
o 
o 
~o 
50 
Jo 
v: o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



s 
$ 

£ 

s 

s 

$ 

s 

$ 

s 

s 

s 
s 

£ 
£ 
£ 
£ 
£ 
£ 
£ 
£ 
£ 
£ 
£ 
£ 
£ 
£ 
£ 



wf will take c 

.ADDRESS) x 
.ADDRESS) / T 



LabfL fxtt.nfxtchk; 

IF STfPt = RTrRKfT thf n % 

IF rFlRST 8= ELBATri-3] 

(•THIRD := ELBATrl-lJ 

begin 
second ;= 48 - third; % source is right just 
go to nextchk; 

END 

elsf % bad bits* fall through to error, 
else % maybe a colon, 

IF FLCLASS = COLON THEN % 
IF FIRST + THIRD < 48 THEN % sO FflR SO GOOD, 



NEXTr.HKj 

DATE 1/22/76 

BY JTC - MSA CENTRAL 

THIS PATCH ALTERS Thf SYNTAX FOR ThE CON 

THE SECOND VA|.UE IN THE CONCAT. L I ST To 

STARTING BIT N UmBEr In THE S UrCE WqrD) 

N BITS ArE BEING SELECTFD FrqM THF SqUrc 



CATENATE OPERATOR TO ALLOW 
BE OMITTED (THE 

IF THE RIGHT-MO! 
E WORD, THUS 



iST 



IS THF SaMe AS 



I := I ft J [?j203 



T « = T & J [2*28120] 



TH?S jS fSPfCtALLY CONVfNteNT for espol 
FIELD DEFINES To BE USED IN CONCATENATE 
HAVE THF FOLLOWING FfELD DEFl NlTl ON 

PBIT = [?SU 



WE CAN USE THF SA M E FIFLD DEFINITION IN 
AS FOLLOWS 

DESC := DESC & 1 PBIT 



SINCF THlS ALLO 
EXPRESSIONS. Th 



A CONCATENATE STATEMENT 



NOTES FUTURE PATCHES T THE mCP AND INTrINSICS Wj^L TAKE ADVANTAGE 
OF THIS PATCH, 



06315000 P 

ARE °F THE RfSO6320000 p 

063?0l00 P 

HEN 06320200 P 

06320300 P 

06320400 P 

06320500 P 

06320600 P 

06320700 P 

06320800 P 

06320900 P 

06327000 P 

99990000 P 

99990100 P 

99990200 P 

99990300 P 

99990400 P 

99990500 P 

99990600 P 

99990700 p 

99990800 P 

99990900 P 

99991000 P 

99991100 P 

99991200 P 

99991300 P 

9999H00 P 

99991500 P 

99991600 P 

99991700 P 

99991800 P 

99991900 P 

99992000 P 

99992100 P 

99992200 P 

99992300 P 

99992400 P 

99992500 P 

99992600 P 

99992700 P 



WS SOME 
US IF WE 



£#PATcH NUMreR 108 FOR fSPOL CONTAINS 252 CARDS 



XRfFBIT 

bfndbit 

USfROPiNX 

xr F f 

bend = 

XREFTNForXREFlNFni 



26#, 
27#, 
28#{ 

OPTiONWORD.tXREFBfTll] #> 
OPTlONWORD.[BENDBlT|l]#, 
DEFINE XREFTNForXREFlNFni » XREF I nFO? ] = 

XiNFOrXREFlNF01»(XREFlMF02)DlV 23*' 

xmark= if xref then XRF.FAY2rxREFpT-i ],n m + \*t 

ARRAY XREFAY?[0«29]»XREFAYi[0M0]»XlNF0t0«31'0ll2 7J; 
INTEGER XREFPT.XLUNJ 



07 
07 
07 
07 
07 
07 
7 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
7 
07 

07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
7 
07 
07 
07 



00000000 P 108 

01001170 P 108 

01001171 P 108 

01001172 P 108 

01001461 P 108 

01001462 P 108 
01001750 P 108 
01001760 P 108 
01001770 P 108 
01007100 P 108 

2DFB01007200 P 108 



n 

p 

C 
C 



c 

c 

c 
c 
c 
c 
c 



c 

c 

r- 



o 
o 
o 
o 

p 
to 

: b 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



$ 



ARRaY nFOINSTACKro??55l; integfr RSPOINT; 
BOOLEAN DEFINING? 

FILE DSKl [)ISK SERIAL [ 20 i 8 1 6 ] (2» 10' 30 ) ; 
FILE DSK2 DISK SERIAL C 20 : 450 ] t 2 • 30 > 30 ) J 
PROCEDURE BEGINPRINT' 
BEGIN 

STREAM PROCEDURE STUFF( N , L ) ; VALUE NJ 
BEGIN 

DI S =L; Ds r ,=8 LIT " "s Sl:=L; DS»=13 WDS; 
Si !=LOc NT nS2=8 DEC! 

end. 

STMFF(RFGlNSTArK[RSP0INT3»LIN); 

if nohfading then datimf; wRiteLinf; 

FN n RFGTNPRlNTJ 
CARnNUMnFR*=CONvnNF0rLASTSFOR0W.L.ASTSFQUFNcE-l J.5,8 



); 



>E 

5,8); 

>LEAN(XMODE) 



cardnUmberssif seotog then tqtalno+addvalUe el$ 

c0nvflnf0clastseorow»uastsequence-u» 
if o * "aXrefo" them begin switchiT(XrefbiT); if booleancxmodej then 

DEFINING := B0nLEANCREALCDEElNlNG)Sl[l t 47 « 1 3)J 

GO AGAIN END; 
IF Q B "ABENDO" THEn BEGIN SW I TCH I T C BEnDB I T ) i Go AGAIN END; 
IF XrEF THEN 
IF GT1*1 THEN 
BEGIN 

IF XREFPTs30 THEN 
BEGIN 

WRiTf fDSK2»30»XREFAY2t*]); 

xrefrt ; o; 
End; 

XrEFAY?[XrEFpT]*-CArDnUMBErSX r EFINFOCGT1»GT2][o9. 3 6!12]; 
XREFPT * XREFPT+1- 
FN n ; 

_ . if not defining them. . 

IF T.CLaSS = BFfilNv THFN 

BFGlNSTACK[BSPOlNT:=BSPOl NT + 135-CARD NUMBER ELSE 
IF T.CLaSS 8 FNDV T hF N 
BEGIN 

IF L I STpjR THEN IF BEND Then BEGINPRInT; 
BSpOInTIsBSPOInT - REA Li fBSpOlNT > 0); % PREVENT 
END* 

"/JBEND0"#0, % 50» 51 

. _ . «MXREF.O«»0» 3! 5?» 53 

STREAM PROCEDURE XreFM0VE( S» C , Sn * Sq ,l »D) J 

value c»l; 

. BEGIN 

DI :-D; 



INVALID INDEX 



DS:= 8 LIT' 
Sl;=D; 
DSJ=8 wds; 
Di ;=d; 
Si !s s; ... 
st :=si+^; 

DSj=C CHrj 
Dl !=D! 

nl*Dl+60j 
SI s=SN; 



SDFB 
*DFB 
*DFB 
*DFB 
*DFB 
2DFB 
XDFB 
SDFB 
SDFB 
*DFB 
XDFB 
*DFB 
*0FR 
*DFB 



01 
01 
01 
01 
0? 
0? 
02 
02 
02 
02 
02 
02 
02 
02 
0? 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
0? 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
09 
09 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 
13 



007600 
007650 
561085 
561087 
196510 
196520 
196530 
196540 
196550 
196560 
196570 
1965B0 
196590 
196610 
214260 
228000 
234800 
234900 
41.9100 
419110 
419120 
419200 
882100 
882200 
882300 
882400 
882500 
882600 
882700 
882800 
882900 
882910 
882920 
910100 
910200 
910300 
910400 
95.0500 
9i0600 
910700 
91 0800 
251285 
251286 
301100 
301130 
301160 
30U90 
301220 
301250 
301280 
301310 
301340 
301370 
301400 
301430 
301460 
30 t 490 



08 
08 
08 
08 
08 
08 
08 

.08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 

.08 
08 
08 
08 
08 
08 
08 
08 
08 

.08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 

.08 
08 
08 
08 

.08 
08 
08 
08 
08 

,08 
08 
08 



L 
C 
C 
C 



c 
c 



n 



v_ 



c 



c 



C 



^ 



c 



c 



c 



V.-' 



u 



o 



o 



u 



<J 



DS:=A DFCJ 
ST !=SQ; 
DS:=8 DFC? 

st:=loc l; 
DS:=WdS; 



:-o 



f..] 

o 
o 



o 



u 

O 
O 

o 
o 
o 
o 
o 

o 



end; 



IF XREF AnjD CNoT pToG OR STREAmToG) THFN 
BEGIN 
XrEFMOVfC ACCUmC1]»CoUnT»SGM0 »cardnumber» 

XREFlNFO[NFXTlNFo«LlNKR#NEXTlNFO t LINKC]:=XLUNl 

XREFAY1>; 
WrITECDSK1»10'XrEFAY1C*])J 
END j 

IF XREF AND PTOG THFN 

XREFPUXrFFPT-REALCELBATCNj'O); % GET RID OF 
SVOlDT 13366J05 

DEFINING := BOOLEAN(REALCDFFINING) & 1 r 47 I n7 l 1 ] ) ; 
DEFINING != BonLEAN C REAL* DEF I N I NG) & OC 47 S 47 U J ) ; 
LI? 

XM A RKj 

IF tAL.L,fORMaLN" a Mf tHFN 
F^nOFlTALL; 
IF XRfF OR DEFINING, Cljl] THEM 

REfilN nFFl^F LSS = <# . 0TR=># » N F Q = *#.L F 9=<#J 

- - define xRffiNfo=iNfO#j 

CtOSFrcARD.RELFASF)? 

close(tapf»release)s 

lock(newtapf); 

WRlTE(|,lNE[pAGF.]); 

For xrefpt ibxrefpt step i Until ?9 do xrefay2CXrefpT]j= 

..... WrITE(DSK2»30'XrEFAY2[*])J 

TOTALNO*REALCX|,UN >500}x1000 + 3000 + XLUn; 
XrEFPT«-XlUN*-0: 

._ BEGIN 

BOOLEAN PROCFDURE INPUTKA)? 
array AEOJJ 

BEGIN 

LABEL L»EoF; 

READ(DSKl,10f At*3)[E0Fl J 
. GO To h . 
EoFl INPUT1 J=TrUE; 
REWlMDCDSKl); 



FNn; 

PROrFDURE OUTP|lTlCn»A)J 

value BJ - . 
rOolfan r; 
array ArO]; 

BEGIN 

IF B THEN 

rewindcdSki ) 

... . ELSE 

BEGIN 

AC93:=XREFTNF0rAt9].LlNKR'A[9J.LlNKC]l = XL,UN 
WRlTE(0SKl»l0»At*3)l 
FND; 
END; 



*dfb 


L330152O 


P 1 


108 


3DFB 


13301610 


P 1 


108 


IDFB 


13301640 


P 


[08 


*QFB 


13301670 


P ' 


108 


SDFB 


13301700 


P ' 


[08 


XDFB 


13301730 


P 1 


108 




L3310100 


P ! 


108 


SDFB 


13310200 


P 


[08 


*DFB 


13310300 


P ! 


108 


sXLUN+l» *DFB 


13310400 


P 1 


108 




13310450 


P 1 


108 


*DFB 


13310500 


P I 


08 


*DFB 


13310600 


p : 


108 




13341200 


p i 


[08 


LAST CREF 


13341300 


p 1 


08 




13366001 


p i 


[08 




14255500 


p i 


.08 




U26B500 


p i 


08 




L5092000 


p 1 


108 




15092010 


p 1 


[08 




15092020 


P ! 


[08 




16495210 


P 


108 




16495300 


P 1 


108 


*DFB 


17002000 


P ! 


.08 




L7002005 


P 1 


[08 




17002490 


P 1 


[08 




17002500 


P 1 


08 




17002510 


P 1 


[08 




17002520 


P 1 


[08 


100000000; 


17003000 


P 1 


08 


XDFB 


17004000 


P 1 


08 




17004500 


P 1 


.06 


*DFB 


17004600 


P I 


L08 


2DFB 


17005000 


P 1 


108 


*DFB 


.7006000 


P 1 


108 


2DFB 


17007000 


P 1 


108 


&DFB 


17008000 


P 1 


108 


XDFB 


17009000 


P 1 


.08 


SDFB1 


I70t0000 


P 1 


08 


SDFB 


17011000 


P 1 


[08 


£DFB 


17012000 


P 1 


08 


XDFB. 


17013000 


P 1 


08 


«DFB 


17014000 


P 1 


108 


*DFB 


17015000 


P 1 


[08 


*DFB 


17016000 


P 1 


108 


XDFB 


17017000 


P 1 


[08 


*DFB 


17018000 


P J 


[08 


XDFB 


17019000 


P 1 


[08 


SDFB 


17020000 


-P 1 


[08 


ZDFB 


17021000 


P 1 


[08 


3SDFB 


17022000 


P 1 


08 


5SDFB 


17023000 


P 1 


08 


SDFB 


17024000 


P 1 


[08 


S=Xi,UN + i?*DFB 


17025000 


P 1 


.08 


*DFB 


17026000 


P 1 


.08 


XDFB 


17027000 


P 1 


.08 


*DFB 


17028000 


P 1 


.08 



c 
c 
c 
c 
c 
c 






c 
c 
c 

c 
c 

c 
c 



c 

c 



o 

o 
to 



:-<J 






"U 

O 
O 

o 

.- s 

u 
O 

o 
o 

o 
o 
o 
o 

o 



BOOLEAN STREAM PROCEDURE rOMPslC A , B ); 
REGIN 

si s=a; 
. n I : = B ; 

IF 63 SC L.SS DC THEN TAl,lY; = i. '> 
COMPSi J=TALLYJ 
. . END;. 
STREAM PROCEDURE HVSKAH 
rEGIN 

- - - -- nl :=aj 

nS!=8 L. ! t "9"} 

SI !=AJ 

DS!= 7 wds; 
fnd; 
boolean procedure compl(a,b)j 

ARRAY A» Br 0] ; 
COMPt «pCOMPSl(A»B); 
PROCEDURE HVtC A>l 

array a r 03 ; 

HVSl C A ) ; 

xlun;=oj 

.... .. . .. REWINDCDSKl) J 

SOrTC0UTPUT1»InPUT1»0»HV1»c0MP1»10»T0TaUNO )i 
END} 
. . BEGIN 

STREAM PROCEDURE PUPCS#D)| 
BEGIN 
Si :=S; 
01 ;=D; 
0Ss=7 WDS} 8(DS!=8 L I T " » ) } 
.SYoIDT 1705 '(551 
END} 
STREAM PROCEDURE PUPKS'DW 

BEGIN 

S!! = S} Si:=SI + 32} ST : = s I +28; 

d?: = d; ns:=2 LtT m "i dsib* ch r '» DSs=? Lit " *"; 

DS:=8. chRJ DStlLlT '•*»; DS:=38 LjT " "} 

eno; 

STREAM PROCEDURE pUp? f STAR. S, C » ) } 
VALUE STAR,S, c> 



BEGIN 
01 S=D} 
. CC 01 I«DI + 10)J 



SI8=L0C S} 

0S!= 8 DEC} 
PS:=LJT " "} 

END} 
STREAM PROCEDURE RLaNK F T(a)J 
BEGIN 

DI s=a; 

. . . DS:= 8 LIT " '•; 

si s = a; 

DS S = in WDS; 

END? 

ARRAY PaYC0:17]} 

BOOLEAN PROCEDURE I N P I j T ? C A 5 ? 



STAR(DI*DI-1I DS*-LIT»*")J 
StaR(dI:=DI"1; DS!=LIT • , *")} 



*DFB 


17029000 


P 


108 


*DFB 


17030000 


P 


108 


*DFB 


I703t000 


P 


108 


*DEB 


17032000 


P 


108 


%DFB 


17033000 


P 


108 


XDFB 


17034000 


P 


108 


SSDEB 


17035000 


P 


108 


SDFB 


17036000 


P 


108 


*DFB 


17037000 


P 


108 


SQEB 


17038000 


P 


108 


*DFB 


17039000 


P 


108 


?DFB 


17040000 


P 


108 


SDE8 


17041000 


P 


108 


S5DEB 


17042000 


P 


108 


SDFB 


17042100 


P 


1 08 


SDFB 


[7042200 


P 


108 


SDFB 


17042300 


P 


108 


SDEB' 


L7042400 


P 


108 


%DF8' 


17042500 


P 


108 


*DEB' 


L7042600 


P 


108 


XDFB 1 


L7043000 


P 


108 


SDFB' 


17044000 


P 


108 


XDFBl 


L7045000 


P 


108 


*DFB 


17046000 


P 


108 


*DFB 1 


17047000 


P 


108 


^DFBl 


17048000 


P 


108 


2DEB 


17049000 


P 


108 


XDFB' 


17050000 


P 


108 


kdfbi 


[7051000 


P 


108 




17052000 


P 


108 




L7053000 


P 


108 


sdfb 


L7055000 


P 


108 




17055100 


P 


108 




17055200 


P 


108 




L7055300 


P 


108 




17055400 


P 


106 




L7055500 


P 


108 




17055550 


P 


108 




17056000 


P 


108 




17056500 


P 


108 


sdfb 


17057000 


P 


108 


SDFB) 


L7058000 


P 


108 




17059000 


P. 


108 




17059100 


P 


108 


sdfb: 


L7060000 


P 


108 


*DEB 4 


1706)000 


P 


108 




17061100 


P 


108 


SOFBJ 


L7062000 


P 


108 


XDEBl 


17063000 


P 


108 


SDFB1 


17064000 


P 


108 


XDFBI 


7065000 


P 


108 


XDFBi 


L7066000 


P 


108 


SDFB1 


.7067000 


P 


108 


2DFBJ 


.7068000 


P 


108 


xdfb; 


L7069000 


P 


108 


*DFBl 


17069500 


P 


108 


*DFB1 


17070000 


P 


108 



c 

c 

r- 

c 
c 
c 

c 
c 
c 
c 
c 
c 

c 
c 



o 

c 
c 

c 



o 

o 
o 
o 



-:0 



P 
O 

O 

O 

o 



u 



o 

o 
o 

o 
o 
o 



o 



o 



IF 

u 



s 
s 



dun; 



ARRAY ArO]J 
RFGTN 
LABEL L,FOFJ 

DEFINE !=XL,UNff! 
IF XREFpT!=X R EFpT+i=30 THFN 
BEGIN 

READ£DSK2mO*XrEFAY?[*])[EoF"]J 
XrEFPT:=OJ 
END; 
IF ( I S=XREFaY?CXreFPTJ),C21:27] GTR 99999999 THEN GO " 
ACo3 I = I&XRFFlNFOn ,r 9»4]»I.C13:833C 9s36jl23; 
GO TO L; 

EOF* INPUT28=TRUF! 
BLaNKeTCPaY); 
XRFFAYl[93;=-ls XRFFPT«-0J 
L: 

end; 

PROCEDURE oUTRUTp(B»Al; 
VALUE Bj 
qOOLFAN RJ 
ARRAY ACQ]; 

rfgtN dfftNf pRtNtfR=line#; 

LAPEL L00p,p0F2J 
OWN BOOLEAN B2; 
LABEL DUN? 

if not P2 then 

IF B THEN 

WRlTECPRUtTERM5»pAYt*l) 
ELSE 
LASTADDRESS * LASTADDRESS«-AtO] AMD LAST ADDRESS , C 9 U23* 
BEGIN 
OOP: 

IF ACOl.r 9:123 GTR XREFaY1[93 THEN 
. BEGIN 

WRITF(PRINTFR»15»PAYC*3){ 

BLANKET(P fl Y ): XREFPT:-0; 
READCDSK1 ,10»XREFAYl[*l)CEOF?i; 
PUPCXREFAYI.PAY)} 
WRlTECPRlNTERtDBL3)J 
WrITE(PRInTER»10»PAY[*]); 
PUp1CXrEFaY1»PaY)j 

WRITEfPRlNTFRCDBL3»lO»PAY[*3) } 

PLaNKfTCPaY)? 
r,0 LOOP; 

end; 

pUp ?f LASTADDRESS < 0, LAST ADDRESS , r I 
XREFpT»PAY[i J); 
IF XREFpTjsXREFpT+l B 11 THEN 
BEGIN 

xrefpt:=o; 

write (print er»J5»payc*]); 

BLANKfT(PAY); 

fNd; 
end; 



XDFBl 


70/1000 


P 


108 


*DFB1 


7072000 


P 


108 


*DFB1 


7073000 


P 


108 


%QFB] 


17073100 


P 


108 


SDFBJ 


,7074000 


P 


108 


XDFBl 


17075000 


P 


108 


SDFB1 


7076000 


P 


108 


XDFB1 


7077000 


P 


108 


XDFB1 


17078000 


P 


108 


EOF; 1 


7079000 


P 


108 


»DFBJ 


7080000 


P 


108 


*DFBl 


7081000 


P 


108 


*DFB1 


L7082000 


P 


108 


*DFBl 


.7083000 


P 


108 


*DFB1 


7084000 


P 


108 


2DFB1 


17085000 


P 


108 


2DFB1 


17086000 


P 


108 


SDFB1 


7087000 


P 


108 


*DFB5 


17088000 


P 


108 


*DFRl 


17089000 


P 


108 


*DFBl 


7090000 


P 


108 


2dfb: 


7091000 


P 


108 




17091100 


P 


108 




L7091110 


P 


108 




7091200 


P 


108 




7091210 


P 


108 


2DFB' 


7092000 


P 


108 


2DFB1 


17093000 


P 


JOB 


2DFB1 


7094000 


P 


108 


THEN 1 


7094100 


P 


108 


XDFB1 


17095000 


P 


108 


*DFB1 


17095050 


P 


108 


*DFRJ 


7095100 


P 


108 


*DFR 


17095200 


P 


108 




17096000 


P 


108 




L7097000 


P 


108 




L7098000 


P 


108 




L7099000 


P 


108 




17099100 


P 


108 




17099200 


P 


108 




17099900 


P 


108 


2DFB 


7100000 


P 


108 




17100100 


P 


108 




17100200 


P 


108 


«DFBi 


17101000 


P 


108 


XDFBl 


17101100 


P 


108 


3JDFB1 


17102000 


P 


108 




17102100 


P 


108 


1 '27]» 


[7103000 


P 


108 




L7103010 


P 


108 




17103100 


P 


108 


SDFB 


17103200 


P 


108 


2DFB1 


L7103300 


P 


108 


SDFRl 


17103400 


P 


108 


XDFB1 


7103500 


P 


108 


*DFBl 


17103600 


P 


108 


*OFRl 


17110000 


P 


108 



o 



c 
c 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

r- 



o 
o 
o 
o 

10 



END; 
ENDJ 

end! 

BY JTC 



if false then fOf?s b 2 « b true; 
fNdj 

PROCEDURE HV2(a)5 
ARRAY ArO]; 

A[0Jls5/j975s8i3887; 
BOOLEAN PROCEDURE C0MP2CA f B)» 

ARRAY AtBCO]? 
C0MP2*- ABStACol) L,EQ ABSCBtO])? 
XRFFPT:=29; REWlMD(D5K2); 
SORTCOUTPUT2MNPUT2»0»HV2»cOMP2FlfTOTALNO 

END MatN BLOCK? 



MSC DETROIT 



& s ******************************************************** 



17110500 P 108 

SDFB17111000 P 108 

%DFB17112000 P 108 

SDFB17113000 P 108 

XDFB17114000 P 106 

XDFB17115000 P 108 

SDFB17116000 P 108 

17117000 P 108 

*DFB17118000 P 108 

XDFB17119000 P 108 

S&DFB-17120000 P 108 

«DFB17121000 P 108 

17121500 P 108 

SDFB17122000 P 108 

99990000 P 108 

P 108 



c 
c 
c 
c 
c 
c 
c 



p 

n 

o 
o 



o 



o 
o 
o 
o 

o 
o 
o 
o 

o 



S#PATCH NUMBER 110 FOR fSPOL CONTAINS 503 CARDS 

$ VOlnT 01001771 

X*************************************** ****************** 

* XRFFS-TUFF 

%********************************************************* 



00000000 P 110 



****** 

****** 



ARRAY 

XREFAY2[0;29], 



XREFAYltO:9]» 



% 
% 
1 
% 
% 
% 
% 
% 

Of 

I" 

% 

% 

% 
% 
% 

% 



% 
% 
% 
% 

c/ 

n 

% 
1 
% 
% 
% 
% 
% 



ARRAY OF ONE WORD REFERENCF REC0R 
THE LAYOUT OF EACH WqRD IS 



• CI 553 



TYPE 
= n 
= 1 
= 2 
= 4 
s 5 



of reference 
for forward 
for Label oc 
for normal d 
for normal r 

FOR ASStqNMf. 



note: The lower 

OF THIS 
IF YOU W 
ArOUnD t 

in the x 
« c 6 : is J identifier id* no 

THIS IS A UNIQUE 
IS ASSIGNED WHEN 
IDENTIFIER IS EN 
FOR THE FIRST TI 

,r21!27] SEQUENCE NUMBER 

record buffer area for writing ou 
name Information records, one rec 
is written for each identifier in 
table when the idfntifier is purg 

SYMBOL, TARt-E' !-[.» WHfN LfAVING 



DS, 



DECL 
CURENC 

Ed- 

effReN 

NT 

ORDER 
FIELD 
AnT ST 
HIS RE 
REF 



T THE 
ORD 

THE S 
ED FRO 
THE RL 





******* *o 



********o 








E 




















YMBOL 
M THE 
OcK 



CE 



BIT 
IS ON 
ARS 
FERENCE 



NUMBER THAT 

THE 
COUNTEI 
ME, 



:re 



1001750 
1007005 
1007010 
1007015 
1007020 
1007025 
1007030 
1007035 
10070^0 
1007045 
1007050 
1007051 
1007055 
1007060 
1007065 
1007070 
1007075 
1007080 

1007085 
1007090 
1007095 
1007100 
1007105 
1007110 
1007115 
1007120 
1007125 
1007130 
1007135 
1.007140 
1007145 
1007150 
1007155 
1007160 
1007165 



10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 

10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 



c 
c 
c 



c 
c 
c 
c 

C 
C 

c 



J 



^_ 



% tn which the identifier is dfcmrfd. 
% The layout of each Record is: 



o 
o 

O 

> 

p 

a 

P 

s o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



words 0-7 



XlNF0[0i3i»0:t?7I; 



integfR. 
xrefpt» 



XLUn; 



OEFINf 

SpGNOp = r 21«l?]#, 
_ . T.DNOF - - r 33 * 153*j. 

TYPEREF = [ 1 15 J*» 

--REFIDN0F at6U5]#» 
SEQNOF ~ C 21 1 ?7 3 # » 



Word b 

p C 2 1 I 1 2 ] 



. C 33: 153 

WORD 9 



THE IDENTIFIER WITH BLANK 
FILL ON THE RIGHT 



SEGMENT NUMRER IN WHICH 

THIS IDENTIFIER WAS DECLAR 

IDENTIFIER ID. NO, 

ELBAT WORD 



X 
% 

% 
% 

ty 
% 
% 
% 
% 
% 
% 

% this array contains onf entry for each entry 

% in the info table, if you have the index 

% of the elbat word for an identifier in 

% the info taRUE you can find the xinfo word 

% for the identifier rY referring toj 
% 

-% XlNFO[lNnFX,LlNKR,iNDFX.LlNKc DIV 2] 

% 

% EACH ENTRY CONTAINS,: 
% - 

% ,t2l ! 12] 

% 
% 

% . C 33 s 1 53 

% 
% 
% 
% 

% . 
% 
% 
% 

% CONTAINS INDEX OF NEXT AVAILABLE SLOT IN 
% XREFAY2, WHEN THIS BECOMES GREATER 
J! THAN 30 THE CURRENT ARRAY IS DUMPED TO DISK 
% AMD XREFPT IS RESET TO ZERO, 
8! 

% this variable controls the assigning of 
* id. no. to identifiers. it is incremented 
% each time a new identifier is encountfred* 

% 

% 

% FIELDS IN XINFO ENTRIES ANd WOKD 8 Of 

?! IDENTIFIER RECORDS. 

% 

% FIELDS OF REFERENCE WORDS 

% 

% 



Segment number in which 

THIS IDENTIFIER WAS DE 

IDENTIFIER ID, NO. 

IF THIS ID. NO. IS ZER 
THEN XREF WAS NOT ON 
AT THE TIME THE IDENT 
WAS DECLARED AND ALL 
FUTLIRF REFERENCES WILL 
BE DlSCARDFD, 



% 
XREFlT(lNDEX»SFQNO>REFT-YpE) = % DEFINE TO ADD INFo TO REF TABLE 
BEGIN TF XreF THEN c ROSSREF I TC I NDEX * SEQNO* REFTYpE ) ; END#» 

5? 



0100/170 


P 


110 


01007175 


P 


1 10 


01007180 


P 


1 1 


01007185 


P 


1 1 


01007190 


P 


10 


01007195 


P 


10 


01007200 


P 


no 


01007205 


P 


no 


01007210 


P 


10 


ED01007215 


P 


110 


01007220 


P 


110 


01007225 


P 1 


no 


01007230 


P 


no 


01007235 


p : 


no 


01007240 


p 


110 


01007245 


p 1 


no 


01007250 


P 3 


no 


01007255 


p : 


no 


01007260 


p < 


no 


01007265 


p 1 


no 


01007270 


p 1 


no 


01007275 


p i 


no 


01007280 


p i 


no 


01007285 


P 3 


no 


01007290 


P 1 


no 


01007295 


P 3 


no 


CL01007300 


P 1 


no 


01007305 


P 1 


10 


01007310 


P 1 


10 


01007315 


P 1 


no 


01007320 


P ! 


no 


01007325 


P 1 


10 


01007330 


P 1 


10 


01007335 


P J 


no 


01007340 


P 1 


no 


01007345 


P 1 


10 


01007350 


P 1 


10 


01007355 


P 1 


no 


01007360 


P 1 


10 


01007365 


P 1 


10 


01007370 


P 1 


10 


01007375 


P 1 


10 


01007380 


P 1 


10 


01007385 


P 1 


10 


01007390 


P 3 


10 


01007395 


P 1 


no 


01007400 


P 1 


10 


01007405 


P 1 


10 


01007410 


P 1 


10 


01007415 


P 1 


10 


01007420 


P 1 


10 


01007425 


P 1 


10 


010074 30 


P 1 


10 


01007435 


P 1 


10 


01007440 


P 1 


10 


01007445 


P 1 


10 


01007450 


P 1 


10 



c 
c 



c 
c 
c 
c 
c 
c 
c 



c 



/•-> 

^ 



L 



u 



o 
o 
o 

o 

p 
p 

o 
o 
o 
o 
o 
o 
o 

o 
o 
o 

o 



XMaRKCReFtYPF!) = X DFFI 

bfGin if xref thfn xRefay 

% 
.. XREFDUMP( T NDEX) = * DEFl 

bfgtn tf defining. r'i '»i ] t 

% 
.. ..XrEFImFoCINIDEX] = % DEFI 

XINFOCC INDEX >*LINKR,C U'DE 

% 
. _F.0RwaRdRff - ' 0*' % nFFI 
LbLREF = 1## J! 
DECURFF = ?.*» % 

NORMALREF = 4#» * 
ASS|GNREF = 5#? * 
SVoiDT 

2**************************** 
% 

X MISCELLANEOUS CROSS R 
X... . 

S VOIOT 02001831 
X****************** ********** 
X 

PRO'cEnURE CROSSRFFlT(lNnFX»SF 
VALUE lNnFX»SFQNO,RFFTYPFJ 

Real iNofx,sfgno,RfftyPf? 

BEGIN 
IF XREFlNFOr INDEX]. IDNOF * 
BEGIw 
IF XREFpT > pg THEN % NO SL 
BEGIN 

WRlTECDSK2.3o»XREFAY?r* 

XREFPT J= 0} 
FNDJ 
XREFAY2[XRFFPT] '•- SF0NO & 

XREFPT := XREFPT + {! % fVF 

X CAN 

X WIL, 

X IN 

. end; 

END OF CROSSREFITl 
% 

PROCEDURE CROSSREEDUMPCINDEX) 
VALUE INngX} 
REAL INDEX* 
BEGIN. 

STREAM PROCEDURE MOypyRFFlN 

VflLlJE N; 
BEGIN 

Si ! = DJ DI ?= D? DS := 
Si := S; Si := SI + 3; 01 

end of movexrefimfo; 
x 

IF XpEFlNFotlNDEX], lDNf)F * 
BEGIN 
MOvfXREFTNfOC iNFOCINnrX.LlN 

taKfcindfx+i 



NF TO CHANGE LAST FNTRY IN ReF 
2CXREFPT-13 .TYPEREF '•- REF^YPe 

NE TO DUMP SYMBOL TABLF INFO F 
HEN CROSSREFDUMPf INDEX); END#» 

NE TO TRANSLATE INFO 
X),LlNKC DI V 2]#, % 



TARLE TO a 0100 
END*' 0100 

0100 
OR IDENTIFIEROIOO 

OlOO 



ROW AND C 
XInFO ROW 



NFS FOR DIFFERENT REFERENCE TYPES 



******************** 

EFERENCE PROCEDURES 

******************** 
QN0»RffTYPe5 J 



Then % save 

OTS LEFT In ArrAY. WRITE IT UT. 
3)1 



ReftyPf typeRff & xRefiNfocindfxi 

Refidnof? 
N THOUGH The array m 

T WRITF I T OUT BECAU 
L LOOK BACK AT THE E 
AND FIX IT Up, 



FO(S»0»N); 



LIT » »? DS ;= 7 WD 
:= dj DS := n CHRJ 



THEN % DUMP IT 



KR, INdfX.LiNK c + 1 J»xREFaYU*]» 
} , [ 1 2 I 6 ]) J 



OlOO 
OLUMN TO 0100 
AND COL 0100 
0100 
0100 
0100 

0100 

OlOO 

OlOO 

0172 

***********************0j>00 

0200 
0200 
0200 
0200 
***********************0200 

0200 
0200 
0200 
0200 
0200 
0200 
0?00 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
NOW WE 0200 
UTINES 0200 
ST PUT 0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
RECORD 0200 
NTIFIER 0200 
0200 
0200 
0200 
0200 
0200 
0200 



IAY Be full 
ise some ro 
:ntry we ju 



sj % blank 
x move ide 



7455 

7460 

7165 
7470 
7475 
7480 
74fil 
7482 
7483 
7485 
7486 
7490 
7495 
7500 
3000 
1605 
1610 
1615 
1620 

1625 
1630 
1635 
1640 
1645 
1650 
1655 
1660 

1665 
1670 
1675 
1680 
1685 
1690 
1695 
1700 
1705 
1710 
1715 
1720 
1725 
1730 
1735 
1740 
1745 
1750 
1755 
1760 
1765 
1770 
1775 
1780 
1785 
1790 
1795 
1800 
1805 
1810 














.0 



.0 












.0 










.0 



.0 












.0 

.0 










.0 



^ 



v^. 



c 

c 
c 
c 

c 
c 
c 



c 

c 
c 

C 
C 



C 



C 

c 



u 



\w 



L. 



o 
o 
o 
o 
-o 

G 

p 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



XREfA 

xrefa 
write 

... XREFI 

end; 
end of 
sVoidt 



Yic«i *= xRefinfof jndfx]; 

Yl[9i != TAKFdNnEX); X FLBAT WORD 
(DS K 'i ,iO»XREFAYj r*]>* 

nFotindexj 5= o; 



CROSSR 

0288?9 

IF G 

XR 



EFD 

21 

Tl 

EFI 
XM 



ump; 



*1 AND NOT MACROID 

t<t.link»cardnumbe 
i a rkcLbLrff); * thi 

% WHE 
XMaRK(asSIGNReF); X FILL- STATE 

xmaRkcassignref 
'(pointer); % dump 



s voidt 
% 

$ VQlDT 



XRFFD 

13301 

IF X 

IF 

13310 

RE 



UMP 
731 
REF 
(AC 
BO 
601 
GIN 

xRf 

I 



THEN * NOT RESERVED WORD 
R.NORMALREF); % RylLD XRFF ENTRY 
S WILL SORT AHEAD Of DECLARATION 

N WF GET AROUND TO THE XRFF, 
MpNy 

); % FOR staTfMeNt 

XREF fNFO 



% 
% 



EN 

FLS 

X 

ELSE 
TF 



IF 
X 

ELS 
X 

D 
E 2 

RFF 



then % make decla 

CUMCO], CLASS f DEF 

oleancaccumcoJ.for 



FINfOCNfXTINFOI 1= 

F sPfctog then 

XRFFlNrOrFLRATri ] 
LSE 

CfXLUN ;= xlun + 
spectog then % jus 

MARK(DECLREF) 

E 

refitcnfxtinfo»car 
thfn norma 

define parameters 

INfOCNfxTINFO] : 



ration reference 
inEdid or not 
had) then % not 



define parameter 



1 ) & SGNO SFGNOF); 

T GO BACK A N D FIX UP XREF ENTRY 



DnUmBERiJF pToG AnD NOT STREAMTOG 
LREF ELSE DFCLREF); 



» DONT CROSS REF, 



= 



SVolDT 



DFFiNiNr,,ri:n then % we aRf doing xrefi^g 
xRffinfO[N f xtiNfO] ;= o; 

if xref and not spectog then % erase previous xref entry, 
xmarkcdeclref); * procedure declared forward. mark last 

% xref entry as a declaration, 
xrffdumpcj); % dump xref imFo 

XrEFIT(prOInFO»O'F0RWArDrEF); % WE NEED THIS So WE CAN FIND 

% THE FORWARD DECL» DURING XREF 
REAL REMfMBFRSFQNO; % RFMEMrfRS SEQUENCE NUMrER OF VARIABLE 

% on left hand sidf of assignment so we 

% CAN XRFF IT CORRfCTLY. 

RfmfmbfRSfQno is caronumbe r > 
xmarkcasstgnref); % assignment to s t mple variable, 

. .. BEGIN 

BEGIN 

ErR(?01); 2 PARTIAL W RD NOT LEFT-MOST 

Go TO EXIT; 
END; 

XREFtT(TALL»REMFMRERSEQNO»ASSIGNREF); 
GO TO LI ! 

fNd; 
Jazzs xRfftt(taLl,rfMfmrfRseQno,assignref); stfPit; aexp; 



02001815 


P 1 


10 


0200t8??0 


P 1 


10 


02001821 


P 1 


10 


02001822 


P 1 


10 


02001825 


P 1 


10 


02001830 


P 1 


10 


02882099 


P 1 


10 


02882100 


P 1 


10 


02882200 


P 1 


10 


07598100 


P 1 


10 


07598200 


P 1 


10 


07660600 


P 1 


10 


08178100 


P 1 


10 


13283500 


P 1 


10 


13301099 


P 1. 


10 


13310050 


P 1 


10 


13310075 


P 1 


10 


13310080 


P 1 


1.0 


13310099 


P 1 


10 


13310100 


P 1 


10 


13310200 


P 1 


10 


13310300 


P 1 


10 


13310350 


P 1 


10 


13310400 


P 1 


10 


13310450 


P 1 


10 


13310500 


P 1 


10 


13310525 


P 1 


10 


13310550 


P 1 


10 


13310575 


P 1 


10 


13310580 


P 1 


10 


13310600 


P 1 


10 


13310700 


P 1 


10 


13310750 


P 1 


to 


13310800 


P 1 


10 


13310900 


P 1 


10 


13310950 


P 1 


to 


13341200 


P 1 


10 


14312100 


P 1 


to 


1431210] 


P 1 


10 


14445100 


P 1 


to 


14469100 


P 1 


10 


14469101 


P 1 


10 


15075550 


P 1 


to 


15075551 


P 1 


10 


15075552 


P 1 


to 


15085100 


P 1 


10 


I509t tOO 


P I 


10 


15092010 


P 1 


10 


15113100 


P 1 


10 


15115000 


P 1 


10 


15115100 


P 1 


10 


15115200 


P 1 


10 


15115300 


P 1 


10 


15116000 


P 1 


10 


15116100 


P 1 


10 


15116200 


P I 


10 


15233012 


P 1 


10 



c 



c 
c 



c 
c 
c 
c 
c 
c 
c 
c 
c 

c 



( ) 



a 



O 

o 

'o 






P 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



XRfFtT(TALL,ReMfMReRSEQNO,aSS!GNRf:F)J % ASSIGNMENT 

* SUBSCRIPTED VARIABLE, 
IF STFPl = ASSIGNOP THEN 

if Pt = fs Then % partial word is left-most 

BEGIN 

XRFFIT(TALI„»REmEMBERSEQNO>ASSIGNREF); % parti 

% WORD ASSIGNMENT TO SUBSCR. VAR, 
GO TO LAST; 
FND 
XMaRKCLrLRED; % MARK LABFL OCCURENCF FOR XRFF 
XMARK(ASSIGNREF)J 
IF CXREF OR DFFrNlNcrl Jl]) ANo XLUN > ThfN 

DEFINE XRFFlNFO[lNnEX3 = \ NFOr f CI NqEX ) . Cf [) I V 2), [33*7], 

f (INDEX), CF 01 V 2).LINKC]#. 
CF = [33*151*, 
FF_ = C 1 8 ? 1 5 1# . 

NEWIDCInDEX] = (IF BOOLEANdNDEX) THEN XREF I NFOC I NDEX I , FF 

ELSE XrEFInF0UNDEX].CF)#; 
. ARRAY TIMINGSCOI2»OI3]J 
PROCEDURE SAVETIMES(I); 

VALUE I; INTEGER I; 
BEGIN 

INTEGER J; 

FOR J !s l STEP 1 UNTIL 3 DO 

timings! i, j j ! = ttme(j)i 
end; 

PROCEDURE UpDATETImES(I); 
. . - VALUE I; INTEGER I; 
BEGIN 

INTEGER J? 

FOR J ;= 1 STEP 1 UNTIL 3 DO 

TIMINGSCI^J] :s TlME(J) - TtMjNGSC I * J3 j 
FNnJ 
SAVETjMFSCO)J % SAvF TjMES FOR START OF IDENTIFIER SORT, 

totalno ;= xlun; % RfMEMBER NUMBfR Of identifiers. 

FOR I J= STEP 1 UNTIL 61 91 00 

pUTco, I); 

BEGIN 

rewindcdskd; 

updatetimesco)! % update times for identifier sort, 

TIMlN6Stn»03 != XlUn; * NUMBER OF IDENTIFIERS SORTED 
END 
IF. rOOLeaN< aC83 -) THE*" 

XREFINF0UC6] J,FF 8= XLyN :s xLUN + 1 

fLsf 

.. - XREFINF0UC8n,CF *= XLUN ;= xLUN + l; 

At8],lDN0r *= XLUN} 
IF 63 SC < Dr THEN 

TALLY ;= 1 
ELSE 
BEGIN 
SI is Ai 

Di := b; 

IF 63 SC b [)C THEN 

Tally .= ?• 

END; 

ns ;= 8 lit v y iTnnm"\ % id.no, and sfg.no. fields 



T01530U00 


P 


no 


15301200 


P 


no 


15342000 


P 


no 


153/12100 


P 


110 


15342200 


P 


no 


AL15342300 


P 


110 


15342400 


P 


110 


15342500 


P 


110 


15342600 


P 


110 


16159100 


P 


110 


16318500 


P 


110 


16495300 


P 


110 


17002005 


P 


no 


17002006 


P 


no 


17002007 


P 


no 


17002008 


P 


i to 


17002009 


P 


110 


17002010 


P 


110 


17002012 


P 


no 


17002015 


P 


no 


17002020 


P 


no 


17002025 


P 


no 


17002030 


P 


no 


17002035 


P 1 


no 


17002040 


P 1 


no 


17002045 


P 1 


no 


17002050 


P ] 


no 


17002055 


P 1 


no 


17002060 


P 1 


no 


17002065 


P 1 


no 


17002070 


P 1 


no 


17002075 


P 1 


.10 


17002080 


P 1 


no 


17002525 


P 1 


no 


1,7004500 


P 1 


10 


17004700 


P 1 


to 


17004710 


p : 


JO 


17022000 


p l 


10 


17022100 


p 1 


10 


17022200 


P 1 


10 


, 17022300 


p l 


10 


17022400 


p 1 


10 


17025000 


P i 


10 


17025100 


p l 


10 


17025200 


P 1 


10 


17025300 


P l 


10 


17025400 


p l 


10 


17033000 


p 1 


10 


17033100 


p l 


10 


17033200 


P l 


10 


17033300 


p l 


to 


17033400 


p 1 


10 


17033500 


p l 


10 


17033600 


p 1 


10 


17033700 


p 1 


10 


17033800 


p l 


10 


17041100 


P l 


10 
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c 

r 

C 
C 



c 
c 

r 

c 



o 
o 
o 
o 
o 
o 
o 
o 
o 



L 



O 

o 

o 

o 

*o 

-jo 

O 

ri 

o 
o 
o 

o 
o 
o 
o 
o 
o 
o 

o 



-- IF REAI,(C0MP1ibC0MPS1(A»B)) a 2 THfN X IDS EQUAL 

COMPi := A[8],IDN0F < Bt« J . IDNOF; 
SORT(OUTPUTlMNPUTlfO»HVl»cOMPl»10»lF TOTALNO < 1000 THEN 

7000 ELSE" 10000); 

S VOInT 17069001 

ARRAY IDTYPFt0!(IDMAX+3)x4-l]} 

STREAM PROCFDURE SfTUPHFAD I NG( S> D» SEG» SEQN0> FWnTOG* LrLtOg * ' 

FW0SE«N0»rYPF#0WNT0G»PARAMT0G» 

valtog); 

_. vALUr SFG»SFQN0,FWnTOr,»LnLT0G»FWr)SEQNO,OwNT0r,»PARAMT0G» 
VALTOqJ 
BEr,lN 

si s =. s ? 

DI := DJ 

A3 (IF SC = " " THEM JUMP OUT ELSE DS j* CHR); 

....DS_|B.6 LIT « -- "j 

OWNTOG (DS i= 4 LIT "OWN " ) , 
Rl i~ TYPE? 

.32 (TF.SC = "." THFN vJyMP Out E^SE DS := CHR); 

PaRaMtOg CDS 5= 6 LT7 ° -- "J 
DS «= 4 LtT "NaMe"; 

VALTOg (dt '= DI - 'I J DS := 5 LIT "VALUE"); 
DS *= \0 L T T •• PARAMETER"); 
DS := 18 LIT » -- DEClARFD AT "J 

- SI != L0C SEQN0J 

DS : s 8 DEC; 

FWDToG CDS != 17 LIT » — FORWARD AT "; 

- SI :s= LOC FWDSEQmo; 

DS ;b 8 DEC); 
LBLToG (DS := 16 LIT ,f — OCCURS AT '»; 

SI S=-LOC FWDSEQNO; 

DS :- 8 DFCli 
F^D of setupheading; 

stream procedure addasfqnoc segno, n. st ars , ) ; 
value sf:qno,n»staRs; 

-. BEGIN 

di *= d; 

DI i= DI + a; 

N ( D I . : =... D I + l o ) ; 

STARS CD I : s DI " lj DS i~ LIT "*")} 

55 1 := LOc SF9N0; 

nS. « = 8 ofc; 

nS := LjT " "J 

STARS C DT *= DI - U DS }= LfT »*"); 

_ ..- FND'' 

STREAM PROCEDURE B|ANKET{D); 
BEGIN 

DI := D; 

DS !s 8 LIT " »; 

SI != D; 

DS ..:= 16 WDS; 

FND OF BLANKET? 

PROCEDURE PRlNTXREFSTftTlSTICSl 
REG IN 

RWlTrH FORMAT STaTS := 

(///» "r.Ross RfffRe^cf statistics"* /» 



17042300 

17042350 

17045000 

17045100 

17047001 

17047100 

17047200 

17047300 

17047350 

17047400 

17047450 

17047500 

17047700 

17047800 

17047900 

17048000 

17048100 

17049300 

17049400 

17049410 

17049420 

17049430 

17049440 

17049500 

17050400 

17050500 

17050600 

17050700 

17050800 

17050900 

17051000 

17051100 

17051200 

17051300 

17051400 

17051500 

17051600 

17051700 

17051800 

17051900 

17052000 

17052100 

17052200 

17052300 

17052400 

17052500 

17052600 

17052700 

17052800 

17052900 

17053000 

17053100 

17053200 

17053300 

17053400 

17053500 

17053600 



P 
P 
P 
P 
P 
P 
P 
P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 



110 
110 
110 
1 10 
110 
110 
110 
110 
110 
110 
110 
110 
110 

no 

110 
110 
110 
110 
110 
110 

no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 
no 



r 

c 
c 
c 
c 
c 
c 



c 
c 
c 
c 
c 
o 
o 
o 
o 
o 

f) 



u 

O 

o 
o 






I 

o 
o 

o 
o 



o 



o 
o 



o 

o 
o 

o 



" "» /). 

("PHASE ONE - SORT", 16," IDENTIFIERS"), 

("PHASE TWo - SORT", 17," REFERENCES"), 

("pHASE. THREE - PRINT CROSS REFERENCE ("»l7»" I.InES)")» 

(Xn»Ifl#"i"t?Ii," ELAPSED TIME (MIn » SEC j") » 



(X5» I4," S "»2I1," PROCESSOR TIMe">» 
(X5»l4»»j'S2H»" I/O TIMf"#/)> 
tNtfrfR I#J»K; 
wRlTFf LlNF»S7ATSfO]); 
FOR T != STEP 1 UNTfL 2 DO 
BEGIN 

WRlTEf LINE i STATS r I + 1 ] » T I MI NGS [ 1 , ] ) t 
FOR .J 1= 1 STEP 1 UNTIL 3 DO 
BEGIN 

K ;= (Tl M lNG5ri»J] + 30) DJV 60? 
WrITE(LImE*STATS[J+3]»K DIV 60, (K 



END} 

ENn; 

FN n PRlNTXRFFST 
DFFlNF REFC 

boolean fir 
ReaL Lastad 

DEFINE I 

ArO] := i R 

REFCoUnT := 
XREFAYim 
FILL IDTYpE 
"UNKNOWN, 
"STRFAM L 
. "STREAM V 
"DEFINE. 
"LIST. 
"FORMAT, 
"SWITCH F 
"REAL SUB 
"SUBRoUTj 

"SWITCH L 
"PROCFDUp 
"INTRINSI 
"STREAM p 
"BOOLEAN 

"Real str 
"intfgeR 
"intfreR 
"boolfan 
"Real pro 

"INTEGER 
"INTEGER 

"Boolean. 

"REAL. 

"INTEGER, 

"INTEGER. 

"BOOLEAN 

"REAL. ARR 

"JNTFGER 

"INTFGER 



ATisncS; 

OuNj - TIMINGSC1»0 

STTlMFJ % TRUE ON 

DRESSJ 

= LaSTADDRESS#J 

nfwtdt t .hefidnofj 
refCount + 1 ; 

:= XREFpT !s LASTA 
t*] WITH 

ABEL. 
ARIaRLf, 



ORMA.T, 

ROUTINF, 

ME, 

ABEL. 

E, 

C. 

ROCFDURE, 

STRfaM procedure. 
eaM procedure, 
stRfam procfduRf, 
stRfam procfdurf. 

PROCEDURE. 
CEDljRF. 
PROcEDURF. 
PROCEDURE. 



]#; % nuMr 
first call 



% ROUND 
J=K MOD 

k mod i 



ER OF R 

of out 



To NEAREST 
60) DIV 10» 
0); 



Refjdnof; 

DDRESS 



ARRflY. 

ay, 

aRRaY. 

ARRaY. 



= OJ 



% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 





1 

? 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



17053700 P 110 

17053800 P 110 

17053900 P 110 

17054000 P no 

17054100 P 110 

17054200 P 110 

17054300 P 110 

17054400 P 110 

17054500 P 110 

17054600 P l l 

17054700 P HO 

17054800 P 1 1 

17054900 P 110 

17055000 P 110 

SEC0N17055010 P i 10 

17055020 P 110 

17055025 P 110 

17055030 P 110 

17055100 P 110 

17055200 P 110 

EFERFNCFS SORTED. 17069300 P 110 

PUT PROCEDURE. 17069400 P 110 

17069600 P 110 

17073100 P 110 

17080000 P ttO 

17080100 P tlO 

17084000 P 110 

17084010 P 110 

17084020 P 110 

17084030 P 110 

17084040 P 110 

17084050 P 110 

17084060 P 110 

17084070 P .110 

17084080 P 3 1 

17084090 P ]]0 

17084100 P 110 

17084110 P 110 

17084120 P 110 

17084130 P 110 

17084140 P 110 

17084150 P 110 

17084160 P 110 

17084170 P 110 

17084180 P 110 

17084182 P 110 

17084184 P 110 

17084186 P 110 

17084188 P 110 

17084190 P 1 1 

17084200 P 110 

17084210 P 110 

17084220 P 110 

17084230 P 110 

17084240 P 110 

17084250 P 110 

17084260 P 110 



L 
C 
C 






c 
c 



L 

C 

c 

c 

c 
c 
c 
c 
c 

o 
o 
o 

/■"- 



v_.y 



u 
O 
u 
O 
"O 

io 

: o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



O 



o 

o 



", % 30 



", % 31 
w ; X 32 



"NAME. 

"INTEGER NAMf. 
-. - "LABEL, 

Label eof2» sk t p; 

OWN BOOLEAN B2, FWDTOG, LrLTOG, WAITtNgFORfWDREFJ 

define match(a,b) = rfalcroolean(a) fqv boolfan(b)) = 

RfaLcnot false)*' 
RfaL i? 

DFFTNF LTNFCOUNT = TiM T Nc,Sr?»0]#? % NUMBER OF LINES PRjNTED. 

own real fwdseono; 

if firsttimf Then % print headings and save timings, 

REGIn 

FIrSTTIME •= FALSE; 
TIME1 *- TIME(1)J 
DATIME; 
UPDATETlMEc;(l5; 

savfttmesc2); % save tlmfs for start f xref print. 
fNd; 

WtDT 171H001 

if not b? then 

if b Then % fnd of sort - list out rest of seq, no. 
if xrefpt * then % we go* some to llst out 

BEGIN 

WRlTEfLlME[DBL,3M5»PAYC*])J 
LlMECoUNT := LlNECOUNT + 1 ; 
END 
ELSE % NOTHING TO LIST OUT 
ELSE * NOT FND OF SORT 

IF NOT MatCHCLaSTaDDRESS»aC03 ) A Nn AC0].REFIDN0F t AND 
AtOl.RFFinNOF > XRFFAYlt8],l n N0F THEN 

if aCoi.typfRff = forwaRdRef tHfN % 

WaITINGFORFWDRET != TRUE 

eLsf 

IF Arol,TYPFREF = LBLREF THpN 3! 
BEGTN 

LBLTOG := TRUF? 
FWDSEONO 8= AtO],SEQNOF{ 
END 
ELSE 

IF AT03.TYPFREF = DECLREF THEN 

IF WAITIMGFORFWDREF THEN % THIS MUST BE IT 
BEGIN 

WAITINGFORFWDREF := FaLSE{ 
FWOTOfi 5= TRUE? 
FWDSEQNO s= AlO],SEQNOF' 
END 
ELSE % ITS A NORMAL DECLARATION - NOT FORWARD 
BEGIN 

IF ACOJ.Rf FIDNOF > XREFAYi [ 8 ] , I DNOF THEN 
DO 

READ(DSK1»10»XREFAY1[*]) LE0F2J 
UNTIL 

AC03.REFIDN0F < XrEFA Y H 8 3 . I DNOF J 
IF AtOli REFIDNOF < XREFAY 1 [ 8 3.1 DNOF THEN 

GO TO skip; 
IF XRFFPT > THEN % THERE IS STUFF TO PRINT 



17084 
17084 
17084 
17084 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
1709J 

17091 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
17091 
17092 
17092 
17092 
17092 
17092 
17092 
17092 
17092 
17092 
17092 
17093 
17093 
17093 
17093 
17093 
17093 
17093 
17093 
17093 
17093 
1.7093 
17094 
17094 
17094 
17094 
17094 



270 
280 
290 
300 
100 
110 
115 
116 
120 
140 
150 
155 
160 
162 
165 
170 
175 
180 
200 
20l 
210 
300 
400 
500 
510 
520 
530 
600 
700 
800 
900 
000 
100 
200 
300 
400 
500 
600 
700 
800 
900 
000 
100 
200 
300 
400 
500 
600 
700 
850 
900 
950 
000 
050 
100 
150 
200 






















.0 













.0 




























L. 

c 

c 



c 



c 
c 
c 
c 
c 
c 

C 
C 
C 
C 



v_ 



/ 
^ 



c 



( ) 



f u 

O 

: O 

|0 

to 

r. j 

I to 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



BEG 
IF 

EL 

LI 

end 
fLsf 

IF 
XREF 

blan 

SET 
S 

FW 

xr 



RE 
RE 
(X 

FWDT 

WRIT 

LINE 

RLAN 

END 

El.SF % I 

IF AtO 

REG I 

AD 

IF 



IN 

SlNGlJOG T 
WrITECUnE* 
SE 

WRlTECLlNEt 
NFCOuNT J= 



NOT 
WRjT 
PT { 
KFT( 
UpHE 
EGNO 
DSEQ 

efay 

ELSE 
ALCI 
AL(C 

Rffa 
Or s 
E C L I 
COUN 

ketc 



SINGLT 
FfLjNE) 
s OJ 
PAY[*]) 
ADIN|G(X 

F>A[03 . 
NO* IDTY 
1 [93. CL 
J) x 4 
> BOOI 
I > BOO 
Y1C93. C 
= L B L T 
Nf»15,P 
T '•= LI 
PAYC*]) 



HEN 
15*PAY[*3) 

DBL3,l5'PAYt*3>; 
LlNEcOuNT + 1; 



Or, Then 



REFA 

SEQN 

PEtC 

ASS) 

3. 

D AN 

ID 

9:13 

G : = 

AYt* 

NFCO 



Yir*3»pAY[*]»XREFAYl[83, 

0F,FWDT0G»LBLT0G» 

IE (I := 

> IDMAX THEN 

D XREFaYIC93,[9:23 = 1)» 
R I = LOcLlD) AND BOOLEAN 
)), XRFFAYH93, [10:13); 

fa^sf; 
3); 
uNt + u 



EL 

EtSE % THIS 

ELSE % HIT ENn 

F0F2; B2 := TR 

IF NOT B THFN SK 

FNn Of OUTPUT!?; 

ArO] ? s 3»7777 

COMP? '•= IF 

EL 



FND 

SE % 

IS A 

F ID 

UF* 
f P: 

7777 

Aro 
true 
se 

IE A 

IF 

FL 



T MUST BE A 
],SE0NOF / 
N 

DASEQNOCAtO 
PA 
CXREFPT := 
BFGIN 

WRITECLIN 

LINECOUNT 
XREFPT := 
BLANKETCP 
END 

REFFRENCE 
REFERENCE 
ENTIFIER FI 
% SO SORT 

LaSTaodRfss 

7777777"i % 
3.REFIDN0F 



NORMAL REFERENCE 

lastaddress,seqnof THEN 

3,SEqNoF'XrEFPT.a[03,[5:13# 
Y[*3)J 
XREFPT + 1 ) - 11 THEM *FULL 

E»15»PaY[*])| 

!= LlNECOUNT + l; 

o; 

AY[*3)J 



TO SAME SEQt NO, SKIP IT 

to the samf. seQ» no, - ski p 

Lf - JUST SKIP OVER REFERENCES 
CAN fiO TO NORMAL eOJ 
5= A[03; 

BIGGEST FLOATING PT. NO, 
< BttnlREFlDNOF THEN % DIF IDS 



to3»REEIDN0l 
AtO],[l:43 
TRUE 
SF 

IF AC01.C1 
IF A[03,S| 

TRUE 
ELSF 

IF A[03,SE«N0r s Bt03,SEQN0F THEN 



)E ~ BtfllfREF'IDNOF THEN 
LSS R[03.[l :43 THEN 



^3 = B[03,[l:43 THFN 
>EQNOf < BC03.SEQN0F THEN 



17094240 


P 1 


10 


17094250 


P 1 


to 


17094300 


P 1 


10 


17094350 


P 1 


to 


17094400 


P 1 


10 


17094410 


P 1 


10 


17094420 


P 1 


10 


17094450 


P 1 


to 


17094500 


P I 


10 


17094550 


P 1 


to 


17094600 


P 1 


10 


17094650 


P 1 


10 


17094700 


P 1 


10 


17094800 


P 1 


10 


17094900 


P 1 


10 


17095000 


P I 


10 


17095100 


P 1 


10 


17095300 


P 1 


10 


17095310 


P 1 


10 


17095320 


P 1 


10 


17095400 


P 1 


10 


17095500 


P 1 


10 


17095510 


P 1 


10 


17095550 


P 1 


10 


t7095600 


P 1 


10 


17095700 


P 1 


10 


17095750 


P 1 


10 


17095800 


P 1 


10 


17095900 


P 1 


10 


17096000 


P 1 


to 


17096100 


P 1 


10 


17096200 


P 1 


10 


17096300 


P 1 


10 


17096350 


P 1 


10 


17096400 


P 1 


10 


17096450 


P 1 


10 


17096500 


P 1 


10 


17096550 


P 1 


10 


17096575 


P 1 


10 


17096600 


P 1 


10 


17096700 


P 1 


1.0 


17096800 


P I 


10 


17096850 


P 1 


10 


17096900 


P 1 


to 


17114000 


P 1 


io 


171! 7000 


P 1 


10 


17117100 


P I 


10 


17117200 


P 1 


10 


17117300 


P 1 


10 


17117400 


P 1 


to 


17117500 


P 1 


10 


17117600 


P 1 


10 


17117700 


P 1 


10 


17117702 


P 1 


10 


17117704 


P 1 


10 


17117706 


P 1 


10 


17117708 


P 1 


to 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 

{ 

c 
c 
c 
c 
c 
c 



L 



L 



o 
o 
o 
o 

So 

O 

o 

: " : o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



s 
s 
s 
s 

s 
s 
$ 
s 

£ 
S 
St 



B00LEANCAr0].C5i 1]) 
FLSE 
FALSE 

ELSE 

FALSE 
FLSF 

faLse > 
savetlm f s(l)j % save tlm e s for start f references sort 

FIRSTTIME »« TRUFJ % LfT OUTPUT PROCFDURE KNOW ABOUT FIRST 
. S0RT(0UTPUT?,!NPUT?»0.HV2,C0MP2. 1.6000)1 

UPDATETiMESf?); % UPDATE TyMES FOR PRjNTlNG CROSS REFERENCE 

primTxrefstatistics; 

DATE 2/J/76 

BY JTC - MSA CENTRAL. 

_.THIS-..PATCH IS NEARLY A COMPLETE REWRITE OF THE ALGOL 
CROSS REFERENCE ROUTINES IN AN ATTEMPT TO REDUCE 
THE AMOUNT OF PAPER PRODUCED AND ALSO TO PROVICE MORE 

..INFORMATION ABOU-T THf IDENTIFIERS. IN PARTICULAR* 
THF FOLLOWING CHANGES HAVE BEEN MADE: 

D..0NE LINE IS LISTfD IN THF CROSS REFFRFNCF FOR EACH 

NTIFIFR WHICH INCLUDES THF FOLLOWING INFORMATION! 
^ THF NAME OF THE IDENTIFIER, 

. The class or The idfnTifieR. e.g.. real, 

intfgeR* boolean, procedure* etc; 
". IF the identifier is a formal paRaMfter it is 
. -.marked as a »name parameter" or »valuf paRameTfR". 

I THF SEGMENT AN[) SpQUFNCF NUMBER AT WHICh ThE 

identifier is declared. 

El if the identifier is a procedure identifier* then 

if the procedure is declared forward The sequence 

nUmBEr OF THE FqrWARD DECLARATION IS LISTED, 
F, IF THE IDENTIFIER IS A LABEL IDENTIFIER, THE SEqUEnCE 
NUMBER AT WHICH THE LABEL OCCURS IS LISTED, 

.2)... ASSIGNMENTS TO IDENTIFIERS ARE NOW STARRED IN THE 

CROSS REFERENCE IN THE FOLLOWING ADDITIONAL CASES: 
A. WHEN A SUBSCRIPTED VARIABLE IS USEf) IN ASSIGNMENT, 
...B,.WHEN AN ARRAY ROW IS USrO IN A FILL STATfMENT, 
C, WHEN AN ARRAY ROW IS USED IN A SEARCH STATEMENT. 
C. WHEN A SIMPLf VARIABLE IS USED IN a FOR STATEMENT. 
.D. WHEN A LOCAL VARIABLF OR STREAM PARAMETER IS CHANGED 
BY BFlNfi ASSIGNED ThE VALUE Of SI»Dl»CI OR TALLY, 

-3).l DEFINE .PARAMETERS ARE NO LONGER CROSS REFERENCED, 

4)1 IDENTIFIERS REFERRED TO IN THE RIGHT HAND Si D E OF A 
DEFINE DECLARATION ARE NO LONGER CROSS 
REFERENCED AGAINST THE DEFINE DECLARATION, 

5).;..iF..N0 .IDFNTI.FIFRS WfRe CROSS .RFFE R ENCED» THF TDFN T tFteR 
SORT WOULD BLOW UP WtTh AN T /0 e rr OR 86^ NOw, XKEF 
CHECKS TO MAKE SURF THERE iS SOMETHING TO S()RT BEFORE 
BEGINNING, 

6), IT SHOULD NOW BE POSSIBLE l"o SET AnD RESET X R EF 
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$: 
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INDISCRIMINANTLY DURING A COMPILE WITHOUT CAUSING THE XREF 
TO GET CONFUSED, PREVIOUSLY. REFERENCFS WOULD GET 
ASSOCIATED WITH THE WRONG IDENTIFIERS, THE RULE NOW IS THAT 
. .. . XREF. MUST-BE ON AT THE POINT OF DECLARATION FOR AN 
IDFNTIFIER TO BF CROSS REFERENCED AT &LL. 

7), ...PREVIOUSLY. WHEN THE SAME IDENTIFIER OCCURRED IN 

DIFFERENT BLOCKS' THE IDENTIFIERS WOULD BE LISTED 
IN NO PARTICULAR ORDER. NOW. THE IDENTIFIER THAT 
APPFARS FIRST WjLL RE LlSTFD FIRST IN THE XREF. 



S#PATcH NUMgER 111 FOR FSPOL CONTAINS 3 CARDS, 

IF MERGETOG THEN * INDICATE NAME OF SOURCE FILE, 

WrITECLINE.<X40>"S0URCE FILES %A! » A6»"/% Al » A6»//>» 
(N1s=TAPE,MFID).I6:6],N1,(N2:=TaPE,FID).C656].N2); 
DATE 2/6/76 
BY.JTC - MSA CENTRAL. 



SS 

£S 

$s 

ss 
s: 
ss 



THjS PATCH PRINTS The NAME OF TrE SOURCE FILE BElOW 
THE NAME OF THE OBJECT FILE ON THE PRINTED LISTING IF 
IS SET AT THE TImE ThE HEADImG IS PRINTED, 



TAPE 



_$#PATCH NUMBER. 112 FOR FSPOL CONTAINS 116 CARDS, 



094 
.618 



DEFINE 



parses missing right bracket 

BLOCK? aUXMEM APPEARS IMMfdUTELY BEFORE InENTlFlFR (NO TYPE) 
SBITF =C21$6]#, % STARTING BIT FOR FIELD ID. 

=[27j6]#, % NUMBER F BITS FOR FIELD ID. 
COMMENT 175) 
COMMENT 
COMMENT 
COMMENT 



.. FIFLDID 
DEFINEV 
AUXMEMV 
FIELDV . 

LASTSEQUENCE 
IF 



23; 

24} 

25; 



NBITF 
. = 125# 
= 19#> 
= 20#» 
= 21#; 
= lft7#* 

STEpl = FIELDID THEN % GET INFO FROM INFO 
BEGIN 

FIRST s= ELBAT[ 13, SBITF* 
SECOND 5= ELBATCH, NBITF; 
GO TO EXIT; 
END 



ELSE 

IF E|. CLASS = 
IF STEPI a 
BEGIN 
FIRST 
SECOND 



LFTBRKET ThEN 
FIEI.DID THEN 



S=s ELRATt I3.SBITFI 
S= ELBATt U.NBlTF; 
IF STEPI = RTBRKET THEN 
GO TO exit; 
fNd 
fl.se 



99994500 
99994600 
99994700 
99994800 
99994900 
99995000 
99995100 
99995200 
99995300 
99995400 
99995500 



01835600 
01835700 
01835800 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 



110 
110 
110 
110 
110 
110 
110 

110 
110 
110 

110 
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00418000 
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01154200 
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01154300 


P 1 
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01278700 


P 1 


112 


01298000 


P 1 


112 


01298500 


P 1 


112 


01298600 


P 1 


112 


01569000 


P 1 


112 


05273100 


P 1 
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05273200 


P 1 
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05273300 
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05273400 
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05273500 
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05273600 
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05273700 
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05273800 
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05273900 
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05274100 
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112 


05274200 
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05274300 


P \ 
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TF FLcLASS = LlTNO The n 
IF FL.CLASS = FTFLniD THEN 
RFGlN 

FIRST J= FL.BATUJ.SBITF* 

SfcONd 5= 48 - CTHTRD J= FLBATC 1],NBITf); 
GO TO NEXTrHKj 
f Nd 
ELSE 

IF STEPI = FlELDin THEN 
BEGIN 

FIRST 8= ELBATCI3.SBITF1 

SFCOND «= 48 - (THIRD ;* EL3AT CI ] « NB I Tf ) I 

if stepi 5* rtbrket then 

BEGIN 

ERRf9/|)J 

GO T E*lT* 
END; 
TO NEXTCHK? 



OcTl 

OnTO 



EN 

ELSE 

IF 

31015 

50000 



GO 
D 



AUXMEMER 
FIELDDEC 
BEGIN 

Rfal 

B00|, 

LaBf 
STOP 

. I ' = 
DO 

BE 



ELcLaSS = LITNO THEN 
7730000002, "3SCS00"» 
0250000000, n 5Fl£^T) n » 

IF EUcLASS>IDMaX and fl,class<mulop 
G0TSChK,FIFL0DFC»AUXMfMfRR, 

stReamfRr,dffinedec,auxmeMerr,fifuddfcj 

G(6i8Hjl s j+ilG0 TO RFALDEC* 



5*652 
2654 



FLA( 



tf ueft-bRacket was used 

TRUf? 



savfinfo. sb» nbj 
ean foundlb? % tRuf 

L EXIT, SAVFlT? 
ENTRY *= STOPrSP != 
I - 1* 

GIN 

STopDEFInE := TrUE? 
STEplT; 

EnTrYCFIELOID)? 
SAVEINF0 := UStINFO; 

IF ELCLASS = RELOP AND ACCUMUJ = "1=0000" THEN 
PFGIN 

IF STEPI = LFTrRKeT THFN * REM F MbfR THIS 
BEGIN 

foundlb J= true; 
stePIT; 

FND 

eLsf 

FOIJNdLB 5= false? 
IF ELCLASS = FTFLDln THFN 

BFGIN 

sb := flbatci j.sbitfi 
nb := flbati i ]»nbitf* 
go to savfit; 
fNd; 

IF FLCUSS a LITNO THEN 
IF STFPl = COLON THEN 



IN FIELD SPEC. 



05275 
06315 
06315 
06315 
06315 
06315 
06315 
06315 
06316 
06316 
06316 
06316 
06316 
063|6 
06316 
06316 
06316 
06317 
06317 
06317 
06317 
09128 
09128 
13337 
14016 
14021 
14136 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 
14269 



000 
100 
200 
300 
400 
500 
600 
700 
100 
200 
300 
400 
500 
600 
700 
800 
900 
000 
100 
200 
300 
600 
700 
000 
000 
000 
100 
020 
040 
060 
080 
100 
120 
140 
160 
180 
200 
220 
240 
260 
280 
300 
320 
340 
360 
380 
400 
420 
440 
442 
444 
446 
448 
450 
452 
460 
480 
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P 
P 
P 
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P 
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P 
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12 
12 
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12 
12 
12 
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12 
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12 
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12 
12 
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12 
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12 
12 
12 
12 
12 
12 
12 
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IF STEP! = LITNO THEN 

IF C SB := ELBATn-2], ADDRESS) * 

fNB != EUBATnl. ADDRESS) * AND 
SR + MB < 48 THEN 
BEGIN 
SAVEITs 

PUTUAKECSAVEINFO) & SB SBlTF & NB NBITF, 

SAVEJNFO); 
STEPITJ 

IF FOUNdLr THEN % BETTER HAVE RIGHT BRACKET, 
IF ELcLaSS = RTBRKET thfn 
BEGIN 
STEPITJ 
GO TO exit; 
fnd 

FLSF % MISSING RIGHT rRaCKet. 
ELSE 

GO TO EXIT} 
END": 

end; 

FUGC114)} 

DO STEPIT UNTIL ELCLASS = COMMA OR ELcLASS = SEMICOLON! 
EXIT? 
END 
UNlTiL 

elclass * comma; 

STOpEnTrY j= SToPGSp := FALSE! 
END} 
GO TO START; 

ARRAY IDTYPFCo:t I DMAX + 4 ) x4-l ] s 

"Lapel, ". % 32 

"field, "8 % 33 (class = 125) 

XREFAY1[93,cLA5S) > IDM A X THEN IF I » 
.. . FIELDID THEN 33 ELSE F LSE I) x 43, 

DATE 2/2/76 
BY JTC - MSA CENTRAL 

THTS PATCH IMPLFMENTS A NEW DECLARATION TYPE OF "FIELD" WHICH 
PROVtDES A CONVFNIENT MfThOD OF DESIGNATING A PARTIAL WORD FIFLO 
A LA THE 6700 ESPOL AND ALGOL MfcHANiSmI ThIS METHOD IS CONSIDERABLY 
MORE EFFlClFNT THAN a DFFrNE BECAUSE THE PARTIAL WORD FTFLD INFOR- 
MATION T s stored Off With Thf idfNTifjeR in the symbol tablf thus 

MAKING RFFERENCES TO TrF PARflAL WORD FlELD VERY INEXPeNSiVF. 
The SYNTAX FOR A PARTIAL WORD DECLARATION |S AS FOLLOWS! 

<FIElD decl,aration> j:= FIEl.D <field list> 

... <FIELD lIST>.::= <FlE|,D> / <FIEL.D LlST> * <FIEL0> 

<FlELD> s:- <FIELd idfntifier> = <field specIeication> 

<FlFLD TDENTIFIER> s!= <!DENTIFIER> 

<FIfLd SPECIFICATI0N> ?:= <INTFGER> 5 <INTEGER> / 

[ <intfgeR> t <tnteger> 3 / 
<field identififR> / 
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t <FlFlO IDENTIFIFR> 1 



SOME EXAMPLFSJ 

FtrLo CF = C 33 1 153 ; 

FTf^D FF = 18115, 
SIZF = 08:i0j 

F-irLns May bf usfo anywheR 
AN n may RF FNcUOSEO tN rRa 
THF FlELn IDENTIFIER |N BR 
THE CODE BUT OF COURSE RFQ 
COMPILER To PROCESS THE BR 



F PARTIAL wORn ofStgNatQRs M AY BE USED 
CKfTS OR NOT A S nFSlRED. eNcLOsiNr 
ACKETS MAY HELP THF READABILITY 
UIRES EXTRA SCANNING BY THE 
ACkETS. 



OF 



. SOME EXAMPLES; 

I := I.FF; 

J != I.CF & 10 rSIZE] R K FFS 
... I.FF ?= J . E C F 3 ; 

*************************** 



99992300 
99992400 
99992500 
99992600 
99992700 
99992800 
99992900 
99993000 
99993100 
99993200 
99993300 
99993400 
99993500 
99993600 
99993700 
99993800 
99993900 
99994000 
99994100 
99994200 
99994300 
99994400 
99994500 



99994500 

* * * * : **************************** ,11**********99999999 



*#PATCH NUMbfR 113 FOR rSPOL CONTAINS 2 CARDS! 



LIST 



SSeT. OMjT LlSTA = 
SPOP OMiT LlSTA 
SJ DATF 3/2/^6 

B.Y.JTC- MSA CENTRAL 



SI 
SI 

SI 

$1 



THtS PATCH SfTS OMiT AROUND THE COMMENT AT 

espoi. compiler to speed up scanning of the 



ThE BEGINNING OF THE 

comment. 



00000999 
00499999 
99990000 
99990100 
99990200 
99990300 
99990400 



$1**********************************************************************99999999 p 



$#PATCH NUMBER 114 FOR ESPOL CONTAINS 222 CARDS, 

$ VOlDT 01476001 

... • UREL EXIT' NFXTf LASSJ 

DEFINE 

FORMaLNaMe = C9}23 = 2#» 
LONGID = NAMEID#» 
PARTlAUwORn = C T 1 / 0)#» 

FRRFXITfNljM) = BEGIN ERRCNuMD; rO TO EXIT) FND#J 
. BOOLEAN 

SPfiLMON, 

DUPIT; % TRUE IF WF ARE DOINr UPDATE TYPE ASSTGN- 
* MENT. I.F.* | U * + i., 
S VOinT 15127001 

IF TALL. CLASS < INTlO THEN % SIMPLE VAR OR FORMAL NAME 



01471 
15076 
15076 
15076 
15076 
15076 
15076 
15076 
15076 
15076 
15076 
15085 
15085 
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00000000 P 114 



114 
114 
114 
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c 

r 

c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 






c 
c 



o 
o 
o 
o 

E 

to 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



BEGlN 15085400 P 114 

TF STrPf / ASSTGNOP ThEN 15085600 P |J« 

IF P1 = FL THEN 15085800 P ]|4 

BFGIN 15086000 P 1 1 A 

IF ElCLASS < AMPERSAND THEn 15086200 P 114 

EMITN(TALL»ADDRESS) 15086400 P 114 

ELSE 15086600 P 1 14 

FMITVCTALL. ADDRESS) J 15086800 P 114 

GO TO EXIT? 15087000 P 114 

END 15087200 P 114 

FLSf 15087400 P 114 

IF FLcLaSS ' PERIOD THEN % PARTIAL WORD 15087600 P 114 

IF D0TSYNTAX(T1»T2) ThEN % FRROR 15087800 P 114 

GO TO FX?T 15088000 P 114 

ELSF 15088200 P 114 

STFPTTJ 15088400 P 114 

IF ELrLASS - ASSffiNOP ThfN 15088600 P 114 

BEGIN 15088800 P 1 14 

STACKCT J= 1 J 15089000 P 1)4 

IF PARTIALWORD THEN ?! MaKe SURE LEFT-MOST 15089200 P 114 

BEGIN 15089400 P 114 

IF PI * FS THE N 2! NoT LEFT-MOST 15089600 P 114 

FRRfXiTc201)J 15089800 P 114 

XRETTTfTALUREMEMBERSFQNO, ASSIGNReF)! 15090600 P 114 

END 15090800 P 114 

El.SE 15091000 P 114 

XmARk(ASSIGmREF) '> 15091200 P 114 

IF TABLEH + 1) = ASTRISK THEN % MIGHT BE UpDATE 15091400 P 114 

IF (DUPIT$=CTABLE( I+2i > EQVOP AND TABLE(I+2) 15091600 P 114 

< MyLOPi OR TABLECl+2) = AMPERSAND) THEN 15091800 P 114 

STEPlTJ % STEP OVER ASTERISK 15092000 P 114 

IF TaLL.FORM & I.N a Me THEN % FORMAL PARAMETER 15092200 P 114 

BFGIN 15092400 P 114 

. „ FMITNCTALI.. ADDRESS); 15092600 P 114 

IF PARTIALWORD OR DlJPlT THEN % NEED VALUE 15092800 P 114 

BEGIN 15093000 P 114 

EMI IOCDUP)? 15093200 P 114 

EMITOCCOOJ 15093400 P 114 

END? 15093600 P 114 

END 15094800 P 114 

FLSf % ITS A SIMPLE VARIABLE 15095000 P 114 

TF PARTIALWORD OR DUP|T THEN 15095400 P 114 

EMITVCTALL, ADDRESS); 15095600 P 114 

IF PARTIALWORD AND DUPIT THEN 15095700 P 114 

BFfilN 15095800 P 114 

EMjTO(DUP)? 15095900 P 114 

FMfl IfO.Ti fT2); 15096000 P 114 

EMDJ 15096100 P 11 4 

STACKCT 5= REALCPARTjALWORD OR DUPIT); 15096400 P 114 

STEplT; 15096600 P 114 

IF DUpIT THEn * ALREADY G T FIRST PRIMARY 15096800 P 114 

SlMPARlTH 15097000 P 114 

ELSE 15097200 P 114 

AEXP; 15097400 P 114 

FMITD(A8-t2»T1»T2)J 15097600 P 114 

STACKCT := 0; 15097800 P 114 

GTl is IF TALL, CLASS = |Nj ID THFN 15098000 P 114 
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TF PI = FS THFN 15098200 P 114 

ISn 15098400 P IH 

FLSF 15098600 P 114 

- .. ISN 1509R600 P 114 

ELSE 15099000 P 114 

TF PI s F S THEN 15099200 P 114 

STD 15099400 P 114 

FUSF 15099600 P 114 

SNpJ 15099600 P 114 

.. - tf taLL.formaunaMe then isiooooo p it4 

RFfijN 15100200 P 114 

FMTTOfXClOJ X TO GET DESCRIPTOR ON TOP 15100400 P 114 

TF TALL. ADDRESS > 1023 ThfN 3! SET VARIANT 15100600 P 1H 

EMTTO(PRTE>» 15100800 P nft 

EMlTOf GTi )'> 15101000 P 114 

END 15101200 P 114 

else 15101400 p 114 

EMlTPAlRCTAtL.ADDRESSiGTl) J 15101600 P 114 

END 15101800 P 1 14 

ELSE X NOT ASSIGNMENT TO SIMPLE VaRIaBUe 15102000 P 114 

BEGIN 15102200 P 114 

IF PI * FP THFN % EXPECTED ASSIGNMENT 15102400 P 114 

FRRFXITC?02)J 15102600 P 114 

EMIT1CTaLL»T1,T2)J * EMIT OP CALL AND PARTIAL 15103400 P 114 

FNQ; % wORn CODE 15103600 P 114 

FND OF SIMPLE VARIAR^ES 15103800 P 114 

$ VOIdT 15233028 15183050 P 114 

TF STFPT / LfTRRKfT THEN % ARRAY ITEM NOt FOLLOWfD RY 15183100 P 114 

RFGTN % A SUBSCRIPT 15183200 P 11* 

IF ELCLASS = PERIOD THEN 15183300 P 114 

IF 00TSYNTAX(Ti,T2) THEN ?! ERROR IN PARTIAL WORD 15183400 P 114 

GO TO EXIT 15183500 P 114 

ELSE 15183600 P 114 

. .. . .. STfPtT; 15183700 P 114 

TF ELCLASS * ASSfGNOP THEN 15183800 P 114 

BEGIN 15183900 P U4 

. . . . TF PARTiALWORD ThFN 15184000 P 114 

begin i siaa j oo p 114 

IF pi t FS THEN % PARTIA L WorD NOT LEFT-MOST 15184200 P 114 

ERREXITC209) J 151A4300 P 114 

XREFItCTaLL»rEMEMBErsEqNO'ASsIGNREF); 151844Q0 P 114 

ENn 15184500 P 114 

ELSE * ASSIGNMENT TO Id WITH NO PaPTUL WORn 15184600 P 114 

XMaRKCaSSIGNRfF)} 15184700 P 114 

IF TABLECI+1) = ASTRISK THEN 15184750 P 114 

IF CDUPIT ?= (TABLEU+2} > EOVOP AND TaBLeH+2) 15184800 P 114 

< MULOp) OR TABLECI+2) = AMPERSAND) THEN 15184850 P 114 

STEPITJ 15185000 P 114 

. . .. TF PaRTIALWORD OR DUPIT THpN % NfED VALUE ON STACK 15185100 P 114 

IF TALL, CLASS < INTARRAYTD THEN % NOT NAME ITEM 15185200 P 114 

FMlTPAlRfTALL. ADDRESS, LOd> 15185300 P 114 

ELSE 15185400 P 114 

FMTTNCTALL. ADDRESS); 15185500 P 114 

IF PARTIALWORD AND DUPiT ThEN 15185600 P 114 

REGIN 15185700 P 114 

FMITOCDUP); 15185800 P 114 

FMiTl COpTI ,T2); 15185900 P 114 
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s vomT 
$ vomT.. 



FNn? 15186000 P 
STACKCT != STACKCT + REALC PARTt ALWORd OR DUPlTJJ 15186100 P 

STFPTT; 15186200 P 

IF DUplT THEN % WE HANDLED FIRST PRIMARY 15186300 P 

SIMPARITH 15186400 P 

f-L$E 15186500 P 

AEXpj 15186600 P 

EMlT0C4R-T2»TJ#T2)J 15186700 P 

EMiTPaIR(TaLL,aDDRESS»IF PI = FS THEN 5TD ELSE 15186800 P 

SND5S 15186900 P 

ST&CKfT s= 0; % A AND R aRf EMPTY 15187000 P 

FND 15187100 P 

ELSE % NOT ASSiGNMfNT 15187200 P 

EMiTT(TALL»Tl»T2); 15187300 P 

GO TO pXlTJ 15187400 P 

END OF ASSIGNMENT TO N0N SIMPLf N0N SUBSCRIPTED 15187500 P 

VaRtARLF? 15187600 P 

15273000 P 

15370001 15299050 P 

IF STFPj s PFRI00 THFN % PARTIAL WORD 15300000 P 

IF dOTSyNTAXC T1.T2) THEN % ERROR 15300100 P 

GO TO EXIT 15300200 P 

FLSF 15300300 P 

STEPlTJ 15300400 P 

TF ELCLASS = ASSirNOP THEN % ASSIGNMENT TO SUBSCRIPTED 15300500 P 

BEGIN 3! VARIABLE 15300600 P 

if partialWord then 15300700 p 

IF pi * FS THEN 15300800 P 

ErrEXITC2o9)J % PARTIALWORD NOT LEFT-MOST 15300900 P 

XREFlT(TALL»REMEMRERSEQNO'ASSlGNREr); 15301000 P 

IF J s 1 THEN X sINGLE-DlHENSlONEn 15301100 P 

EMIjNCtaLL, ADDRESS) 15301200 P 

FLSE 15301300 P 

EMlTO(fDC)J 15301400 P 

IT TALL. CLASS > LONGIO THEN % EXPLICIT INDEX OP 15301500 P 

emitocinx); % rfouiRed 15301600 p 

IF PI s FR THEN % CALLED FROM FOR STATEMENT 15301700 P 

GO TO FXITJ 15301800 P 

IF TArLeU + U b ASTRISK THEN 15301900 P 

IF fDUPlT:=(TABLECI+2) £ f^VOP AND TABLFCI+2) 15302000 P 

< MULOP) OR TABLEU+2) s AMPfRSAND) THEN 15302J00 P 

STEPtT; 15302200 P 

IF PARTIALWORD OR DUPjT THEN X NEFD VALUE ON STACK 15302300 P 

BEGIN 15302400 P 

EMITO(DUP); 15302500 P 

FMTTO(LOD)* 15302600 P 

END* 15302700 P 

TF PARTtALWORd AND DUPlT ThfN 15302800 P 

■• BEGIN 15302900 P 

EmITocDUP); 15303000 P 

EmITICO»Ti#T?); 15303100 P 

END: 15303200 P 

STEPIT? 15303300 P 

IF DUPlT THEN 15303400 P 

SIMPARITH 15303500 P 

FL.SF 15303600 P 

AEXPJ 15303700 P 



14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 

14 



L. 



L 



C 



L. 



c 



L. 



c 



v^ 



c 
o 
o 
o 
o 
o 
o 



w 



Q 
O 

o 
to 

> 

to 



u. 

to 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 



E M I T D f 48-T2.TliT2)J 

f M I T r X C H 3 ' 

IF TALL, ADDRESS > 1023 ThfN 

FMlTOf PRTE); 
FMlTOflF TAUL. CLASS MOD 2 = INTaRRAYID MOq 2 THEN 
IF PI = FS THEN iSD El.SE iSN 
ELSF IF Pi s FS then STd ELSE SND)J 
STACKcT :s 0? % A & B ARE EMPTY 

Di » — Q « 

(tNd Of"aSS!GNMENT TO SUBSCRIPTED VARIABLE 

ELSE 

BEfifN % HANDLjNr, Of NO ASSIGNMENT CASE 
"SPCLMON 5= Pi = FP OR PARTlALWORD OR ELCLASS > 

ampersand; 
if j a 1 then % single dimensioned 

IF TALL. CLASS > LONGID THEN % NAME ITEM 
BEGIN 

EMITNCTaLL, ADDRESS); 

EMI rOCINX): 

I> S PcLMON THEN 

f mitO(LOd); 

END 

eLsf ?! RfffReNcf to singLf dimensioned ARRAY 
if SPCLMON thfn 

EMITVCTALL, ADDRESS) 

ELSF 

FMtTN(TaLL. ADDRESS) 

. ELSE % MULTI-DIMENSIONED CASE 

EMlTOriF SPCLMON THEN C0C else COO? 

if pi = fs then % expected an assignment 
errfxiT(2iO); 

STACKcT := 11 % BFCAUSE REGISTERS ARE NON-EMPTY 
IF PARTlALWORD ThfN 
BEGIN 

FM|T!(0,Tl,T2); 

p'i ;= o; 

END? 
END OF NO ASSIGNMENT CASE) 



_$#PATCH. NUMBER. 115 FOR ESPOL CONTAINS 150 CARDS 



15303800 
15303900 
15304000 
15304100 
15304200 
15304300 
15304400 
15304500 
15304600 
15304700 
15304800 
15304900 
15305000 
15305100 
15305200 
15305300 
15305400 

15305500 
15305600 
15305700 
15305800 
15305900 
15306000 
15306100 
15306200 
15306300 
15306400 
15306500 
15306600 
15306700 
15306800 
15306900 
15307000 
15307100 
15307200 
15307300 
15307400 
15307500 
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CASFV 



%%% 

%** 

%* . 

%* 

%* 

%*.. 

%* 

%* 

%* 

%* 

%* 



VIA>rv =49#» cOMM E N T 061; 01229000 

OFFiNf UaSTSfOUfNcf = H9#, 01569000 

^^^^^^^^a,^^...uj.j.^j,A*a.**^*i***** + ***!tc****^***'i<*!|t*************?l076460l5 

♦ SS07646020 
*%07646025 



CASE 



STATEMENT 



THIS PROCEDURE HANDLfS THE CASE STATEMENT. ThE SyNTaX FOR THE CASE 



♦£07646030 
*%07646035 
*S$07646040 
*X07646045 
*%07646050 

**07646055 
*«07646060 
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BRANCH TO BRANCH TABLE 
BRANcH TO RESUME" 
BRANCH TO RESUME 



%* STATMENT.-lSt 

%* 

%* cas f <aexp> Of rfotn <compound TA I L> 

%*- _. 

%* thf code generated FnR this statement isj 

%* 

*■*- <AE*P> 

% * LITC ? 

** BFW 

** STMT 

** LITC ? 

%* B F W 

** STMT 1 

** LITC ? 

2* BFW 
2* 

55* 

3* BRANCH TABLE? 

** DUP 

** ADD 

%* DFW 

X* LITC ? 

** BBW 

** LITC ? 

%* BBW 

** 

** LITC ? 

X* BBW 

** RESUME! 

%* 

X* NOTICE THAT: 

.** 1) THE CASF INDEX IS NOT TNTFGFRIZED. If YOU HAVE ANYTHING THAT 

%* MIGHT CAUSE THE lNp£X TO BE UNNORMaLjZED YOU WILL HAVE TO 

** TNTEGERIZE IT YOURSELF. 
%* 

%* 2) no Range checking is don f on the index, if you use a number 
%* out of range then you will fall off thf fnd of the world. 

%* 

%* 3) TF A STATEMENT in THE CASE COMPOUND TAtL. IS NULL* NO CODE IS 

%* GENERATED FOR THE STATEMENT. INSTEAD* THE BRANCH TABLE GOES 

%* DIRECTLY TO RESUME. 

%* 

%* 4) T F A STATEMENT T N THE CASE COMPOUND TAIL tS A SIMPLE GO TO, 

%* . THE STATEMENT DOES MOT HAVE A BRANC H To RESUmE AFTER IT" 

%* 

X******** ****************** ******************************************* 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

PRnCEDU R E CaSESTaTEmEnT; 

BEGIN 

ARRA- Y CASEADDRESS[0j99] ; % THIS ARRAY HOLDS THE RELATIVE 

% ADDRESS OF THf REGINNING OF EACH 

* CASE. 



branch into table 
branch to statement 
branch to statement 1 

branch to statement n 
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intfgfR 

LtNK» 



adR. 



L 



Nf 

ENDOFIT, 

J. 

K; 

BOOLEAN 
GOTOG? 

LABEL XIT} 



% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 

% 
% 



HOLDS RfUTIVf ADDRFSS OF FIRST OF 

BRANCHES THAT MuST RE FIXED UP TO 

BRANCH TO THE RfSUMf POINT, 

HOLDS REUTIVF ADDRfSS OF THE BRANCH 

AROUND THE CASE STATEMENTS TO THE 

BRANCH TABLE. T H lS BRANCH GETS FIXED 

UP WHEN WE FIND WHERE THE BRANCH TABLE 

GOES, 

COUnT OF NUMBER OF CASE STATEMENT 

ENCOUNTERED. 

ADDRESS OF RESUME POINT 

TEMPORARY 

TEMPORARY 



TRUE IE 
GO TO, 



WE ARE COMPILING A SIMPLE 



STEP OVFR "CASE" 
GENERATF CODE FOR CASE 
BEGINV THEN % NOTICE WE 



DUMMY BRANCH TO BRANCH 
UP LATER, 



STEPITJ % 

AFXpj % 

IF STEP! * 
BEGIN 

errc70); go to xi t 
end; 
emit(o); % generatf 

EMITO(rfW); % IT 

Ar>R 5= u 

WHILE STEPI * ENDV nO 

bfgin % processing case statements 
eRRortog j= truf; 
if flclass = semicolon then 
n ;= n + i ?! this leaves 

ELSf 
.. BFGIN 

CASEADDRESSrM] 5= LJ 

N Is N + |l 

IF (GoToG != SlMPGO) 

ELBATC I s=I-ll 
STMT; % PROCESS 



INDEX 

JUST JUMPED 



OVER "OF" 



TABLE, WILL FIX 



% 
A 



NULL 
ZE R 



STATEMENT, NO CODE 
IN CaSEADDReSS[N] 



NEEDED 



% REMEMBER BEGINNING 

X THIS CASE, 

THEN 
i- ELCLASS ;= GoV; % REMEMBER 
THE STATEMENT 



ADDRESS OF 



IF SIMPLE 



IF ELCLASS = SEMICOLON THEN 

IF NOT GOTOG THEN % GENERATE DUMMY BRaNcH TO RESUME 
REG IN 

FMITCLINK); 

fMitocbfw); 
link ;= l; 

fNd 

ELSE % SIMPI.F GO TO, NO CODE TO GfNERaTE 
ELSE 

IF ELCLASS * FNDV THFN 
ERRf7i)j 

end; 
end of while loop; 

ENDTOG I- TRIJEJ % SKIP OVER COMMENT AfTeR END 
DO STOPnEFlNE := TRUE UNTjL 
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FjX UP BRANCH To 
GENERATE CODE To 
BY TWO AnD BRANCi 



branch table 
multiply index 
\ into Branch table 



STEPt < FNDV AND rLcLASS > 
ENDTOG :? FALS^J 
EMlTBfBFW,ADR»LJ' % 

Emitocoup); % 

EMlTOCAnD)? % 

EmIToCBFW); 

EnDoFIT := L + 2xN; % CALCULATE WHERE RESUME IS 
WHILE <Jj=J+l) < N DO % GENERATE THE BRANCH TAnLE 
EMlTR(BBW»Li»L+2»lF (K t ~C aSEaDDRESS C J" 1 ] ) = THEN 

ENnOFIT ELSE K); 
J J= LINK; % TO M A K r THE LOOP WORK 

while clinki=J) * o do 

BFGIN % FIXING UP BRANCHES TO ResUMf 



J != GETfLlNK-2); 
EMiTB(BFW»LlNK,|,)j 

end; 



% LOCATION OF NfXT BRANCH TO FIX 



X IT t 

END 



Of caSf 

L49{ 



statement; 
casestatfment; 



GO TO e^IT: 



£654 
%656 



OcT0500000250000002, »5FIELD"» 
0CT06 1OOO00OO00 0000, "4CASE0", 
S* BY JTC - MSC DETROIT 

si this patch aods a -casf- statemfnt to espol. see 
s* documentation at begtnntng Op procfdijRe to See how 

«* IT IS USED, 

$$********* ******************************************************** 



$#PATCH NUMBER 116 FOR ESPOL CONTAINS 1 CARD 

save array definearraY|-0!34]; 

SI DATE 6/29/76 

BY JTC - MSA CENTRAL 



07646603 P 115 

07646604 P n5 

07646605 P j t5 
07646610 P 115 
07646615 P 115 
07646620 P 115 
07646625 P 115 
07646630 P 115 
07646635 P 115 
07646640 P 115 
07646645 P 115 
07646650 P 115 
07646655 P 115 
07646660 P 115 
07646665 P 115 
07646670 P 115 

07646674 P 115 

07646675 P 115 
07759100 P 115 
07759200 P 115 
07770000 P 115 
09126700 P 115 
09128800 P 115 
99990000 P 115 
99990100 P 115 
99990200 P 115 
99990300 P 1 15 

*****99990400 P 115 



00000000 P 116 



$: 

SI 

Si 

St 

s; 



this patch fixes a problem with espol that 
.compfler to abort with am invalid index at 
eithfR the card or Tapf file if no 99999999 



COULD CAUSE THE 
END Of FILE ON 
CARD WAS PROVIDED, 



01491000 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 



SNATCH NUMBER 117 FOR pSPOL CONTAINS 3 CARDS; 



3! MARK XVt .0.1 16 00001030 

*---- MAY 9, j977 00001040 

"XVI. 0.116" 01831000 

$« BY DJZ - MSC DETROIT 99990000 

SS DATE 05/09/77 99990100 

St THIS PATCH UPDATES ThE MARK LEVELS OF THE SYMBOL FILE. 99990200 
$i*******************************************a****** # ******* t * + *^ 
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$# PATCH NUMBER 90l FOR ESPOL CONTAINS 1 CARD 

S: THIS PATCH CHANGES I N PUT TAPE BLOCKING TO ALLOW INCREASED 

Si -EFFICIENCY IN- STORING SOURCE FILES ON TAPE 

$$ BY Tjp. 2/16/77. USf UTILITY COMPTP/UTlL TO CREATE SOURCE TAPES. 

BEGIN RR8«.50xlO + 50+i; RR9*tO END? 



C 901 



00538000 
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S#PATCH NUMBER 902 FOR rSPOL CONTAINS i CARD. PAGF SKIP BETWEEN PROCEDURES 



.si._thtS patch changes t h e fffect Of the format option to cause a 
s* page skip between procedures instead of a four-ltne skip 

S« BY J.H.. UCSC» 4 MAY 77 

St 

SPACFlTDOWN s WR j T£( Li NEr PAGE 1 )# I 
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901 
901 



902 



C 902 

C 902 

C 902 

C 902 

14023100 C 902 
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********** 



conflicts 



************ ************************#****************** + *****************#***#**** 



S .VOIDT. 01001771 

DEFINE XREFlNFO[XREFINF01»XREFlNF02 3= 

XtNFOrXREFlNFOl » C XREF I NF02 )D I V 2]#. 
XMARK= IF XREF ThEN XREFAY2 [XREFPT- t ] , [ 1 { i ] «. 1 # } 



3! 
ARRAY XREFAY2T0: 29 J » XREFAY 1 [0 i l0]»XINF0[0«31»0sl27J; 



integfR xrefpt,xlun; 



01001750 P 

01001750 P 

01001760 P 

01001770 P 



01007100 P 
01007100 P 



01007200 P 
;DFB01007200 p 



110 CONFLICTED WITH* 
108 DISCARDFD 
108 VOIDED 
108 VOIDED 



110 CONFLICTED WITH! 
106 DISCARDED 



110 CONFLICTED WITH? 
108 DISCARDED 



L 

C 
C 

c 
c 
c 
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o 
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o 
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o 



DEFTNE LASTSEQUfNCE 
..DEFINE LASTSEQUENCE = H7#, 



= 149#, 



01569000 P 
01569000 P 



DEFINF LASTSEQUENCE = 147#, 

if xref then 
if gt i ^ 1 then 

BEGIN 

IF X R EFpT=30 THEN 
BEGIN 

. . _. WRITE CnSK2»30»X R EFAY2[*]){ 

XREFpT «• o; 
end; 

. - ._ . XREFAY2r.XREFPT]«-.CARDNUMBERRXREFlNF0CGTl>GT2n09:36sl2]{ 

XREFPT *• XREFPT + lj 
ENf); ' 



0CTO50OO002500O00O2, "5FIFLd"» 
OnT0500000250000000, "SFIELd"' 



OcT0500000?50000000, "5FIEUd"» 

strfam procfdure xrefmovecs»c»sn»sq»l»d) 
value clj 
bfgtn 

di :=d; 

dsjs a lit" »; 

si :=;d; 

ds; =8 wr>s; 

dt s=dj 

Sy:=s; 

ST!=Si+3J 
DS:=C CHRJ 
Di;=D; 

DI*-D1 + 60J 
SI ;=Sn; 



X654 
*654 



S654 



0156 
0288 
0288 
0288 
0288 
0288 
028B 
0288 
0288 
0288 
0288 
0288 



9000 
2100 
2200 
2300 
2400 
2500 
2600 
2700 
2800 
2900 
2910 
2920 



09128700 
09128700 



0912 
XDFB1330 
2DFB1330 
SDFB1330 
XDFB1330 
%DFB1330 
8DFB1330 
SDFB1330 
2DFB1330 
SDFB1330 
SDFB1330 
XDFB1330 
2DFB1330 
SDFB1330 
3DFB1330 



8700 
1100 
1130 
1160 
1 190 
1220 
1250 
1280 
1310 
1340 
1370 
1400 
1430 
1460 
1490 



1 1.5 CONFLICTED WITH* 
112 DISCARDFD 



11.0 CONFLICTED WITH? 

108 V0IDFD 

108 VOIDFD 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDFD 

108 VOIDFD 



115 CONFLICTED WITH! 
112 DISCARDED 



110 CONFLICTED 

108 VOIDFD 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDFD 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 



WITH! 
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1 ) 



DS 


= 4 DEC; 


ST 


' = Sq; 


DS< 


=8 DEC; 


S!< 


= L0C L? 


DS: 


= WDSj 



END? 



SDFB13301520 P 108 VOIDED 

SDFB13301610 P 108 VOIDED 

XDFB13301640 P 108 VOIDED 

SDFB13301670 P 108 VOIDED 

XDFB13301700 P 108 VOIDED 

*DFB13301730 P 108 VOIDFD 
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END? 

if xref and (Not ptog or stReamtog) then 
bfgtn 

xrefmovfcaccumri]» count »s0m0 »cardnumber» 

XREFINFOrNFXTTNFO.LINKR.NEXTiNFOlLiNKClJsXLUNIsXLUN+l, 
XREFAYl); 

WRITE(DSK1#10»XREFAYU*3); 
ENDJ 



SDFB13301730 
13310100 
XDFB13310200 
XDFB13310300 
&DFB13310400 
13310450 
35DFB13310500 
&DFB13310600 



SVoIDT 



Ul 



IF XREF AND NOT SPECTOp, THEN % FRaSf PREVIOUS XREF ENTRY, 
IF XREF AND PTOG THEN 



IF XREF AND PToG THEN 
XMARx(ASSlGNREF); % ASSIGNMENT To SjmPl'E VARIABLE, 

BEGIN 
BEGIN 

ERRC201); * PARTIAL, W RD NOT LEFT-MOST 
GO TO exit; 
END; 

XREFITCTALL>REMEMBERSEQNO,ASSIGNREF)J 
GO TO 1,1 J 
FNDJ 

xmark; 

IF TALL.FORMALNaMF thfn 



13341200 
13341200 



13341 
15091 
15092 
15113 
15115 
151 J 5 
15115 
15115 
15116 
15116 
15116 
15092 
15092 
15092 



200 
100 
010 
100 
000 
100 
200 
300 
000 
100 
200 
000 
010 
020 



TF 

JaZ?! 



JAZ7! 



TALL.FORMALNaMF THEN 

xrefttctall»remfmberseqno»assignref); 



stepit; aexp; 



15092020 
15233012 



xRefttctall.rfmfmbeRseqno.assignref)? stepit; aexp; 15233012 

XReFtTcTALL»RFMfMBeRSEQNO,aSSIGNREF>* % ASSIGNMENT T01530H00 

% SUBSCRIPTED VARIABLE. 15301200 

IF STEP! = ASSIGNOP THEN 15342000 

if pi = fs then- % partial, word is left-most 15302100 

BEGIN 15342200 

XrEFIT(TALL'REmEmBERSEqNO»ASSIGnREF); % PARTIAL15342300 



GO 
END 



TO 



% 

last; 



WORD ASSIGNMENT TO SUBSCR, VAR 



15342400 
15342500 
15342600 



IF CXrEF OR 
IF XREF OR 



DEFINING, [1 jl ]) AND 
DEFINING, till] THEN 



XLUN > THEN 



16495300 P 
16495300 P 



110 CONFLICTED WITH* 

108 VOIDED 

108 VOIDFD 

108 VOIDFD 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 



110 CONFLICTED WITHS 
108 DISCARDED 



114 CONFLICTED WITH* 

110 VOIDED 

110 VOIDED 

110 VOIDED 

110 VOIDED 

110 VOIDED 

110 VOIDED 

110 VOIDED 

110 VOIDED 

110 VOIDED 

110 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDFD 



114 CONFLICTED WITH 
110 VOIDED 



114 CONFLICTED WITH: 

HO VOIDFD 

1 1 VOIDED 

110 VOIDED 

110 VOIDED 

110 VOIDED 

110 VOIDED 

HO VOIDED 

110 VOIDED 

110 VOIDFD 



110 CONFLICTED WITH! 
108 DISCARDED 
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DEFINE! XREFlNFOUNnEX] = lNFOrC(INDEX),CF DIV 2), [33:7], 

DEFINE XREFINFO=INFO#! 



TOTALNO 



XliUN; % REMEMBER NUMBER OF IDFNTIFIFRS, 

TOTaLNO*REALCXLUN > 5 OOJX1000+ 3000 +XLUN J 



BEGIN 
REWlNDfnSKI ) 



17002005 P 
17002005 P 



17004500 P 
17004500 P 



17022000 P 
SDFB17022000 P 



IF B00LFAN(At83) TheN 17025000 P 

A[93 lsXREFlNF0tAC9].LlNKR,A[9],L I NKc3: = XLUNj-XUUN + l J XDFB 17025000 P 



if 63 sc < dc then 

IF 63 SC L.SS DC THEN TALLYJsi* 



IF REA|.(C0MPl*aCOMPSl(A»B)} = ? THEN % IDS EQUAL 
C0MP1 laCOMPSKA»B)» 

S0RTC0UTPUT1»InPUTJ»0»HVi»C0MP1M0»IF TOTALNO < 1000 THEN 
SORT C OUTPUT 1» I NPUT1»0»HV1»C0MP1» 10 'TOTALNO )J 



SORT (OUTPUTS I NPUT1»0»HV1,C0MP1» 10 »ToTAUNO )i 
STREAM PROCEDURE PUPCS,D)J 

BEGIN 

SI J=S; 

di «=d; 

DSla7 WDS5 8(DS«s8 L I T " «)} 
SVOIDT 17054551 
END? 
STREAM PROCEDURE PUP10S.D)! 
BFfilN 

su = s; sijbSi + 32i s i : =s i +?e; 

. . Di :=D J DS:=2 L|T " "; DS»=4 chR* DSs=2 LIT " *"; 
DS8=8 CHR; DS!=LlT "*"; DSls38 LIT " "; 
END? 
STREAM PROCEDURE PUP2t STAR. S. C » D ) ; 
VALUE STARTS, c? 
BEGIN) 

dis=d; 
ccdi ;=di+io); 



su=loc s; 

DS:s 8 DEC) 
DSi=L!T " "J 

- ^ end;. 

stream procedure blanketca3j 

BEGIN 
D!I=AI 

DS:= 8 LIT " "; 
Si :=a; 



starcdi«-di-i ; os*Lir»*«); 

STARCDI ! =D I -I I 0S»=LIT "*"); 



17033000 P 
XDFB17O33O0O P 



17042300 P 
SDF817042300 P 



17045000 P 
SDFB17045000 P 



110 CONFLICTED WITH: 
108 DISCARDED 



110 CONFLICTED WITH! 
108 DISCARDED 



110 CONFLICTED WITHS 
108 DISCARDED 



110 CONFLICTED WITH! 
108 DISCARDFD 



110 CONFLICTED WITH! 
108 DISCARDED 



ttO CONFLICTED WITH! 
108 DISCARDED 



110 CONFLICTED WITH! 
108 DISCARDED 



WITH: 



2DFB17045000 


P 


no 


CONFLICTED 


SOFB17048000 


P 


108 


VOIDED 


35DFB17Q49000 


P 


108 


VOIDED 


SDFB17050000 


P 


108 


VOIDED 


XDFB17051000 


P 


108 


VOIOFD 


17052000 


P 


108 


VOIDED 


17053000 


P 


108 


VOIDED 


XDFB17055000 


P 


108 


VOIDED 


17055100 


P 


108 


VOIDED 


17055200 


P 


108 


VOIDED 


17055300 


P 


108 


VOIDED 


17055400 


P 


108 


VOIDFD 


17055500 


P 


108 


VOIDED 


17055550 


P 


108 


VOIDED 


17056000 


P 


108 


VOIDED 


17056500 


P 


108 


VOIDED 


XDFB17057000 


P 


108 


VOIDED 


2DFB17058000 


P 


108 


VOIDED 


17059000 


P 


108 


VOIDED 


17059100 


P 


108 


VOIDED 


XDFB17060000 


P 


108 


VOIDED 


X0FB17061000 


P 


108 


VOIDED 


17061100 


P 


108 


VOIDED 


25DFB17062000 


P 


108 


VOIDED 


SDFB17063000 


P 


108 


VOIDED 


XDFB17064000 


P 


108 


VOIDFD 


2DFB17065000 


P 


108 


VOIDFD 


S5DFB17066000 


P 


108 


VOIDED 


XDFB17067000 


P 


108 


VOIDFD 
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to 



dss= in wds; 
end; 



ARRAY |DTYPFrO:cTDMAX + 4)x4-n» 
ARRAY THTYPECOJf !DmAX+3)x4-1]I 



DEFINE I s LASTADORESS*! 
- DEFINE. I-XLUN«! 



ACo] 5= I & NEWIDCI ,REFlDNOF] REFlDNoFj 

ACo3 : = I&XREFlNFOCItt 9 I 41 » I . C 1 3 i flj] C 9 : 36s 123 ? 



XRFFAY1[8] := XRFFPT := LaSTaODRESS := Ql 
XRFFAYU9] :s-lj XREFPT«-0; 



?DFB170680Q0 P 
SDFB17069000 P 



17047100 P 
17047100 P 



17073100 P 
XDFB17073100 P 



17080000 P 
35DFB1708O0OO P 



17084000 P 
2DFB17084000 P 



108 VOIDFD 
108 VOIDFD 



112 CONFLICTED WITH! 
HO DISCARDED 



110 CONFLICTED WITHJ 
108 DISCARDED 



110 CONFLICTED WITH: 
108 DISCARDED 



110 CONFLICTED WITH» 
108 DISCARDFO 
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to 

to 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



"Label, 
"Labfl, 



larfL fof2» sktP; 

label loop,eof2; 



", % 32 

"$ at 32 



OWN BOOLEAN B2, FWDT0G, LBLTOG, WAI Tf NrFORfMdREF; 
OWN BOOLEAN B2J 



fndj 

LABEL 



dun; 



IF 

Loop 



- LABEL DUn; 
IF NOT B2 THEN 
IF B THEN 

WRlTECPRl N TCRM5'PAYr*]) 
ELSE 
LaSTaDDRESS * LaSTa0DRE5S*aC0] 
BEGIN. 



AND LasT a DDRESS»[9 j 123* 



IF ACOl.r 
BEGIN 



9S 123 GTR XREFAYU93 THEN 



S 
-S. 



writecprinter»15»pay[#]); 
blanketcpay ); xrefpt»*o* 

RFADtDSKl»10»XREFAYlr*l)[EOF23; 
PUPCXREFAYl'PAY)? 
WRlTE(PRjNTFRrDBL])j 
WRfTFf PRlNTRR»lO,PAYr*l)» 

pupicxrffayi»pay); 

WRlTF(PRlNTFRmBL],10,PAY[*])J 

rlankfT(PaY); 



17084300 P 
17084300 P 



17091100 P 
17091100 P 



17091110 P 
17091110 P 



17091200 P 
17091200 P 



17091200 P 

17091210 P 

SDFB17092000 P 

SDFB17093000 P 

SDFB17094000 P 

THEN 17094100 P 

XDFB17095000 P 

SSDFB17095050 P 

*DFB17095100 P 

SDFB17095200 P 

17096000 P 

17097000 P 

17098000 P 

17099000 P 

17099100 P 

17099200 P 

17099900 P 

SDFB17100000 P 

17100100 P 

17100200 P 

£DFB17101000 P 



112 CONFLICTED WITH« 
110 DISCARDFD 



110 CONFLICTED WITH? 
108 DISCARDED 



110 CONFLICTED WITHJ 
108 DISCARDFD 



110 CONFLICTED WITHJ 
108 DISCARDED 



110 CONFLICTED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDFD 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDFD 

108 VOIDED 

108 VOIDED 

108 VOIDED 

108 VOIDFD 

108 VOIDFD 

108 VOIDFD 

108 VOIDED 

106 VOIDFD 

108 VOIDFD 



WITH 



f \ 
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c 



J 



o 
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o 

1° 
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o 
o 
o 
o 
o 
o 



GO 



DUN* 



loop; 

END? 



PUPgfLASTADDRE'SS < 0, LAST ADDRESS .[ 21 
XREFPT.PAYrH); 
XREFPT+i = i i THEN 



IF XREFPTt 
BEGIN 

xrefpt:=oj 
write(printer.15»pay[*]); 

-- blankft(pay); 

end; 
end; 
if false then f0f.2» b?j=true; 
end; 



KREFAY1[9], CLASS) > IDMaX THEN IF I 
XREFAYir<n, CLASS) > IDMaX THEN 



FIFLDID THEN 33 EL.Se ELSE I) x 4]» 
ELSE I) x 4], 



SDF817101100 P 

XDFB1/102000 P 

17102100 P 

27],17103000 P 

17103010 P 

17103100 P 

XDFB17103200 P 

XDFB17103300 P 

SDFB17103400 P 

SDFB17103500 P 

2DFB17103600 P 

XDFB17110000 P 

17110500 P 

2DFB17111000 P 



17095000 P 
17095000 P 



17095100 P 
17095100 P 



ACO] l= V'777777777777777"} % BIGGEST FLOATING PT. NO. 17114000 P 
A[0]I=5497558J3887I XDFB17J14000 P 

C0MP2 ! = IF A[03.REF|DN0F < BCO J .REFtDNOF THEN % D IF IDS 17117000 P 
C0MP2* ABS(ArOl) LFQ ABS(R[0])f 171 J 7000 P 



S0RT(0UTPUT?»InPUTS>,0>hV2iC0MP2»1»6000); 
S0RT(0UTPUT2, InPUT2»0»hV2»C0MP2M »totalno )J 



17119000 P 
XDFB17H9000 P 



NUMBER OF FRRORS DETECTfD = 0, 
PROCESSOR TIME a 53 SfCONDS. 

i/o time = 34 seconds: 



LABEL 00OOO0000LINF 00177231? EXECUTE PATcH/MERfiE 



106 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 
108 



VOIDED 
VOJDFD 
VOlDFD 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDED 
VOIDFD 
VOIDED 
VOIDED 



112 CONFLICTED WITH! 
110 DISCARDED 



112 CONFLICTED WITH! 
110 DISCARDFD 



110 CONFLICTED WITH! 
108 DISCARDED 



110 CONFLICTED WITH! 
108 DISCARDFD 



1 3 CONFLICTED WITH! 
108 DISCARDED 



PATCH /MERGE 
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o 



? COMPll.E ESPOL/DISK ALGOL LIBRARY 

PACKET ?3 

INPUT nnn CARDS FROM ZIP 

TIME 130ft 

HATE 77231 FRIDAY, 08/19/77 



*** BURROUGHS B5700 DCMcP MARK XVI. 0,73 AND INTRINSICS MARK XVI, 0.00 *** 
#N0 MESSAGES TODAY 



? rOMP 
? 

? 
o 

? OATA 



ILE ESPOL 

ALGOL STa 

ALGOL FIL 

FILE LjNp 

CARD 

4:ALG0L 

COB IN 

DKA IN 

PBD00?4 

DKA OUT 

#DUp LIP 

RM OK D 

#DUP LIB 

+OPERATn 

ESPOL/D 

DKA LOK 

CDB REL 



/DISK ALGOL LIBRARY 
CKs 1000 

E TAPE= SYMBOL/ESPOL 
= LINE PRINT OR BACK 



DISK 
UP 



SERIAL 



/FSPOL= 1 BOJ 1305 05/12/77 

CARD DB!ALfiOL/ESPOL= 1 

SpR SYMBOL ESPOL'ALGOl/eSPOl* 

out 01 i line:algol/espol= 1 

ESpOL DISK:ALG0L/ESP0L= 
ESpOL/DlSKJALGOL ESP0L= 



? END, 



RDM L^POL DIbK»«LG0L/ESPOLs 1 
RARY ESpOL/DlSKlAUGOL ESP0L= 1 
S 

RARY ESpOL/DISK:ALGOL ESPOL= t 

R KEYED IN: 1RM 

ISK REMOVED 
ESPOL DlSKiALGOL/ESPoL* 1 
CARD DBSALG0L/ESP0L= 1 



DKA REL SYMBOL ESPOL : ALGOL/ESP0L= 1 
PBD002/1 PEL Oil LINE 7763 j ALgOL/ESPOL = 
ALGOL/fSPOL* 1 E0J 1311 
FOR ALrOL/ESPOL= 1? PROCESS- 258 SECS, 
PKT#00?3 REMOVED 



IOs 117 SECS, OLAYs 4 



C 

c 
c 
c 
c 
c 
c 



,.— "1 

c 
c 
o 
o 
o 
o 
o 
o 
o 
o 



o 



